76

Найти произведение первых К натуральных чисел

sakudryavtsev 09 августа 2022

Найти произведение первых К натуральных чисел

категория: информатика

71

Как-то так: 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.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...