Var i,n,f: integer; begin readln(n); i: =1; f: =1; while i< =n do begin f: =f*i; i: =i+1; end; writeln(f); end.
Спасибо
Ответ дал: Гость
наливаем воду в сосуд для 5 и переливаем в сосуд из 3-х литров в сосуде их 5-ти остаёться 2,переливаем в ведро,повторяем тоже самое ещё образом получаем 4 литра))
Ответ дал: Гость
обработка с электронных таблиц автоматизирует весь процесс и ускоряет выполнение работы.
Другие вопросы по: Информатика
Похожие вопросы
Знаешь правильный ответ?
Используя цикл с предусловием написать программу вычисления n! (эн факториал)...
Популярные вопросы