profile
Опубликовано 5 лет назад по предмету Информатика от AP0409

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

  1. Ответ
    Ответ дан Yegor55

    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.

     

Самые новые вопросы