Программа на Паскале вычисляет значения функции Y: Определите это значение.

var x,y, i:integer;

begin

x:=1;

for i:=1 to 5 do

begin

y: =sqr(x)*10;

x:=x+1;

end;

y:=y+1;

writeln('при x=',x,' y=',y);

readln;

end.

​

diassultanov1    2   15.05.2020 10:51    0