Можете подсказать как решить эту задачу по циклу FOR?
var
x,i,y,s:integer;
begin
readln (x,y);
s:=1;
for i:=1 to y do
s:=s*y;
writeln (s);
end.

ququetoya    3   13.05.2020 22:53    1