Найдите значения функций у=х^2+1, для x= 0,2; 0,4; 0,6; ; 20.

MiaRia123 MiaRia123    1   28.03.2019 13:10    5

Ответы
badangel888 badangel888  27.05.2020 02:06

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.

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика