найти произведение чисел от 1до 10,в паскале
Ответ
22
var i,s:integer;
Begin
s:=1;
for i:=2 to 10 do s:=s*i;
writeln(s);
end.