Предмет: Информатика,
автор: dezmont1
Найдите произведение целых чисел от 20 до 40.
Ответы
Автор ответа:
0
Var
P:real;
i:integer;
Begin
P:=1;
For i:= 20 to 40 do
P:=P*i;
WriteLn('P = ',P)
End.
P = 6.70734193572714E+30
P:real;
i:integer;
Begin
P:=1;
For i:= 20 to 40 do
P:=P*i;
WriteLn('P = ',P)
End.
P = 6.70734193572714E+30
Автор ответа:
0
Спасибо, братик :3
Автор ответа:
0
// PascalABC.NET 3.2, сборка 1483 от 14.06.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('П=',20.to(40).Aggregate(BigInteger(1),(x,y)->x*y))
end.
Результат
П=6707341935727141628215296000000
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('П=',20.to(40).Aggregate(BigInteger(1),(x,y)->x*y))
end.
Результат
П=6707341935727141628215296000000
Интересные вопросы
Предмет: Биология,
автор: rain0313
Предмет: Математика,
автор: dauletiyarovabarno
Предмет: Алгебра,
автор: matvienkoalbina3
Предмет: История,
автор: lera2531
Предмет: Литература,
автор: satlantasss