tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составить программу,
Составить программу, вычисляющую факториал числа n. (n! = 1·2·3·…·n) 3 цикла
юлия20082
1 18.07.2019 11:20
0
Ответы
Serenael666
21.09.2020 23:25
//Pascal ABC.NET v3.0 сборка 1111
//for
Var
i,n,r:integer;
begin
readln(n);
r:=1;
for i:=1 to n do
r:=r*i;
write(r);
end.
//while
Var
i,n,r:integer;
begin
readln(n);
r:=1;
i:=0;
while i<>n do
begin;
inc(i);
r:=r*i;
end;
write(r);
end.
//repeat
Var
i,n,r:integer;
begin
readln(n);
r:=1;
i:=0;
repeat
inc(i);
r:=r*i;
until n=i;
write(r);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
pornuxa1
21.08.2019 11:20
Имеется массив на n чисел, заменить все отрицательные числа на 0 и вывести этот массив....
tarasenkosasa
27.05.2019 14:40
Составить программу заполнить массив из 500 элементов случайными числами в интервале [0..100]. отсортировать его по возрастанию двумя методом «пузырька» и методом «быстрой...
hollok
27.05.2019 14:40
Составьте программу вычисления количества трехзначных чисел , у которых сумма цифр является четным числом,...
Анастасиюшечка
27.05.2019 14:40
Программный принцип компьютером ((тока кратко))...
Реноша
27.05.2019 14:40
Почему с маской /24 может быть только 254 узла, а не 256...
romanajmusin520
27.05.2019 14:40
1. составьте программу , определяющую , является ли число х простым. число х введите с клавиатуры. число называется простым,если у него нет других делителей , кроме...
vbv551
27.05.2019 14:40
1.составьте программу вычисления количества двузначных чисел,которые кратны 2 и 3. 2.составьте программу ,выводящую на экран все двузначные числа ,у которых первая цифра...
mit210404
09.09.2020 01:24
Повторить понятие информационной модели,виды. Составить логическую задачу и решить её...
armagedon641
17.09.2019 05:20
Наука о методах и процкссов сбора,хранения,обработки,передаци информации...
6Анна111111111111111
25.11.2021 10:59
1 КАРТИНКА К 2 ЗАДАНИЮ 2 КАРТИНКА К 1 ЗАДАНИЮ Задание 3 Ученики 8 класса решили пройти квест в музее. Для поиска решения им необходимо решить 6 заданий, которые размещены...
Популярные вопросы
Кислотному оксиду и кислоте соответствуют формулы веществ 1) na2o...
2
Как называется приём? около дровяного склада, словно из земли выросший,...
1
Характер человека складывается из: а) эмоций б) черт человека в)...
1
Для праздника купили 12 сладостей : конфеты и шоколадки . одна шоколадка...
2
Упродавца было 25мешков с ананасами ,по 3 кг в каждом . когда несколько...
1
Какое количество молекул содержится в пачке соды nahco3 массой 500...
3
Положение амазонской низменности 100...
3
Тест 25.разложение разности квадратов на множители.вариант 3,часть...
3
Утрех девочек было 15 конфет, у первой было 5, у второй 8 , сколько...
3
За 3 дня продали 3 т дынь. в первый день продали 270 кг, во второй...
3
//for
Var
i,n,r:integer;
begin
readln(n);
r:=1;
for i:=1 to n do
r:=r*i;
write(r);
end.
//while
Var
i,n,r:integer;
begin
readln(n);
r:=1;
i:=0;
while i<>n do
begin;
inc(i);
r:=r*i;
end;
write(r);
end.
//repeat
Var
i,n,r:integer;
begin
readln(n);
r:=1;
i:=0;
repeat
inc(i);
r:=r*i;
until n=i;
write(r);
end.