Предмет: Информатика,
автор: AP0409
Найдите значения функций У=Х^2+1, для X= 0,2;0,4;0,6;...;20.
Ответы
Автор ответа:
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.
Интересные вопросы
Предмет: ОБЖ,
автор: yuliyakupriyanova02
Предмет: Литература,
автор: a89886924055
Предмет: География,
автор: lideniska2007
Предмет: Математика,
автор: Diana17199
Предмет: География,
автор: ilovenata