Var x,y : integer; begin y:=0; for x:=1 to 9 do y:=y*x; writeln (`y=', y); end
Var
x,y : integer;
begin
y:=0;
for x:=1 to 9 do
y:=y*x;
writeln (`y=', y);
end
Гость
Ответ(ы) на вопрос:
ГостьVar
x,y : integer;
begin
y:=0;
for x:=1 to 9 do
y:=y*x;
writeln ('y=', y);
end.
ответ 0
Не нашли ответ?
Похожие вопросы