- 06.05.2018 08:50
- Информатика
- remove_red_eye 9599
- thumb_up 65
Ответы и объяснения 2
var
x,y:real;
begin
x:=-1;
while x<=1 do begin
if x=0 then
writeln('x=0 net resheniy')
else begin
y:=1/x+2;
writeln('x=', x:0:2, ' y=',y:0:2);
end;
x:=x+0.1;
end;
end.
- 07.05.2018 17:00
- thumb_up 39
var
i:integer;
begin
for i := -10 to 10 do
if i 0 then
writeln('x = ', i / 10 :6:2, ' y = ', 10 / i + 2 :0:2)
else
writeln('x = 0.00 y не определен');
end.
- 07.05.2018 22:16
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.