1. Информатика
  2. Составить программу, которая

Составить программу, которая после ввода целого положительного числа n подсчитывает произведение всех целых чисел от 1 до n

98722 98722    2   04.10.2019 22:40    0

Ответы
123Gopo 123Gopo  09.10.2020 20:36

Program n1;

var n,i: integer;

p: real;

begin

p:=1;

readln(n);

for i:=1 to n do p:=p*i;

writeln(p);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
лолололололпке лолололололпке  13.12.2021 03:01
Напишите сюда слова для красфорда 20 слов по темам. Персанальный компьютер как система, как мы познаём окружающий мир,понятие как форма мышления...
alena123141 alena123141  13.12.2021 03:06
Задача: Известны оклад (зарплата) и ставка процента подоходного налога. Определить размер подоходного налога и сумму, получаемую на руки. Постановка задачи: Исходными...
ilya20063 ilya20063  13.12.2021 03:14
Що таке структура документа? Наведіть приклади структурованих документів....
yaroslavgolova yaroslavgolova  13.12.2021 03:26
Массив A состоит из всех натуральных чисел от 1 до 10. Как вычислить сумму всех элементов массива? а) S:=0; For k:=1 to 10 do S:=S+A[k]; б) S:=1; For k:=1 to 10 do S:=S+A[k];...
марго419 марго419  13.12.2021 03:32
В матрице действительных чисел размером 7x3 поменять местами первый и последний отрицательные элементы, решить на с++...
милуя милуя  13.12.2021 03:34
Яке призначення стилів заголовків? Наведіть послідовність створення змісту документу....
ukubasov ukubasov  13.12.2021 03:38
Реалізувати програму, яка міняє елементи заданого стовпця на значення відповідних елементів одновимірного масиву (С++)...
ирввадрпраз ирввадрпраз  13.12.2021 04:26
алгоритм построил надо решение...
grugoryan85 grugoryan85  07.12.2020 12:10
информатика написать подробно решение...
Dhshssh Dhshssh  07.09.2019 17:40
Полученное сообщение , информационной обьем которого равен 32 битам . чему равен этот объём в байтах...

Популярные вопросы