Задание:
Найти произведение первых К натуральных чисел
Решение:
Как-то так: Program Help; Var k, i: Word; p: LongInt; BeginWrite ('Введи k (не больше 12): '); Readln (k); p: =1; For i: =2 to k do p: =p*i; Writeln ('Произведение=', p); Readln; End.
Знаете другой ответ?