Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Найти значения функции
у= х2-7х, при х=5; 4,9; 4,8; 4,7; 4,6; … 0.
Паскаль

Ответ оставил Гость

Var x, y: real;
begin 
    x := 5; 
    writeln(x, #9, y); 
    while(x >= 0) do begin   
        write(x:0:1);   
        y := sqr(x) - 7*x;   
        write(#9, y:0:2);   
        x := x - 0.1;   
        writeln; 
    end;
end.