Паскаль
Найдите произведение первых 10 натуральных чисел при помощи оператора while
Program qq;
var per, res:integer;
begin
per:=1;
while(per < 10) do
begin
res:=per*(per + 1);
per := per + 1;
end;
write(res);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
