Составте программу вычисления произведения чисел от 1 до 101*2*3*4* ... *10
Составте программу вычисления произведения чисел от 1 до 10
1*2*3*4* ... *10
Гость
Ответ(ы) на вопрос:
ГостьProgram Task;
Var i: Integer;
p: LongInt;
Begin
p := 1;
For i := 1 To 10 Do
p := p * i;
WriteLn('Результат: ', p);
ReadLn;
End.
Гостьvar i,pr:integer;
begin
pr:=1;
for i:=1 to 10 do
pr:=pr*i;
writeln(pr);
end.
Не нашли ответ?
Похожие вопросы