Составте программу вычисления произведения чисел от 1 до 10

1234 ... * 10

Question

Колюха

16 апреля, 19:20

+3

Ответы (2)

Знаете ответ?

Кристина · Answer 1

Var i, pr:integer;

begin

pr:=1;

for i:=1 to 10 do

pr:=pr*i;

writeln (pr) ;

end.

Альфред · Answer 2

Program Task;

Var i: Integer;

p: LongInt;

Begin

p : = 1;

For i : = 1 To 10 Do

p : = p * i;

WriteLn ('Результат: ', p) ;

ReadLn;

End.

Составте программу вычисления произведения чисел от 1 до 101*2*3*4 * ... * 10