Ответы
Ответ дал:
0
var
x, y : Real;
begin
x := 0.2;
while x <= 20 do
begin
y := sqr(x) +1 ;
Writeln(x:0:1 ,'^2 + 1 = ', y:0:2);
x := x + 0.2;
end;
ReadLn;
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад