Решите по информатике через integer. с циклом. надо - вопрос №8906812 от KaKTyZzZz 08.12.2020 05:23

Question

Информатика: Решите по информатике через integer. с циклом. надо узнать произведения цифр от 1 до n например: n=5 нужно 1×2×3×4×5=150

KaKTyZzZz · Answer

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
var p:=1;
for var i:=2 to ReadInteger('n=') do p*=i;
Writeln(p)
end.

Пример
n= 5
120