Программа на Паскале вычисляет значения функции 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.

Question

Информатика: Программа на Паскале вычисляет значения функции 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. ​

blakblood2влад · Accepted Answer

1 sm( Игорь ,18,189).2 sm( Роман ,17,182).3 sm( Антон ,20,191).4 sm( Виктор ,21,185).5 sm( Николай ,16,193).6 % а) выбрать всех спортсменов выше 184 (включительно), но не выше 190;7 % ?- findall( Name, (sm(Name, Age, Height), Height = 184, Height 190), Xs ).8 % б) выбрать спортсменов моложе 20 лет, но не моложе 18 (включительно);9 % ?- findall( Name, (sm(Name, Age, Height), Age 20, Age = 18), Xs ).10 % в) выбрать всех спортсменов с ростом не ниже 186 и не старше 19 лет (включительно).11 % ?- findall(...

Программа на Паскале вычисляет значения функции Y: Определите это значение. var x,y, i:integer;beginx:=1; for i:=1 to 5 dobeginy: =sqr(x)*10;x:=x+1;end;y:=y+1;writeln('при x=',x,' y=',y); readln; end.​

MOGZ ответил

Программа на Паскале вычисляет значения функции 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.