Question

Нужна программа умножения первых 10 натуральных чисел. Использовать счетчик типа s:=s*i; И надо использовать оператор while

Answer 1

Ответ:

var

 n, i, s: integer;

begin

 read(n);

 s := 1;

 for i := 1 to n do

   s := s * i;

 writeln(s);

end.

Объяснение:

вместо n прописать 10