Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nazaroline
05.07.2021 18:25 •
Информатика
Написать программу, которая вычисляет факториал числа.
Показать ответ
Ответ:
lilyavenkova
08.10.2020 02:22
Var n,f,i: integer;
begin
write('n = ');
readln(n);
f:=1;
for i:=1 to n do f:=f*i;
writeln(n,'! = ',f);
end.
Пример:
n = 6
6! = 720
0,0
(0 оценок)
Ответ:
klara90
08.10.2020 02:22
Program E9;
var p, i, n: integer;
begin
write ('введите целое n = ');
readln (n);
p: = 1;
for i: = 1 to n do
p: = p * i;
write (n, '! = ',p);
readln
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
девчонка1999
14.11.2021 03:54
6 КЛАСС ЗАДАЧА НА ГРАФ...
nastya3162
30.01.2021 10:47
Нужно создать программу на паскале, которая соответствует данному условию: дана строка, содержащая не более 100 символов. среди символов строки особую роль играет...
Евгения65545
30.01.2021 10:47
1.в каком случае сообщение содержит информацию для конкретного человека, а в каком - нет? примеры обоих случаев и обоснуйте ответ. 2 перечислите различные источники...
Barby228
23.03.2023 00:39
Перевести в биты: 4; 17. перевести в мб: 1536кб; 768б. перевести в гб: 2048мб; 3072кб...
platymax
14.07.2021 09:41
Синформатикой требуется заполнить массив именно так: x = [3 4 7 8 11 12] какой оператор надо поместить в тело цикла вместо многоточия? for k: =1 to 6 do begin end;...
stepvitalii
14.07.2021 09:41
Что надо написать вместо многоточия, чтобы вывести элементы массива x[1..n] в обратном порядке? в ответе не используйте пробелы. for k: =1 to n do writeln ( );...
vitm1
18.05.2021 09:53
Дополните предложение. Изображённый на рисунке знак относится к знакам... 5png.png запрещающим сервиса предписывающим предупреждающим...
trinadsyear
28.04.2022 01:37
1. Верное неравенство A) 406 259 406 529В) 890 124 889 241C) 945 672 945 664D) 625 543 = 652 5432. Число 90 544 меньше 900 680 наА) 81 136В) 81 146C) 810 146D)...
aliaidi
28.04.2022 01:37
Блок, который можно считать однородным диском массой 200 г, укреплен на горизонтальной оси. Через него перекинута нить с укрепленными на ее концах грузами 325 г...
Sofa1351
28.09.2022 02:34
Буду очень благодарен...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('n = ');
readln(n);
f:=1;
for i:=1 to n do f:=f*i;
writeln(n,'! = ',f);
end.
Пример:
n = 6
6! = 720
var p, i, n: integer;
begin
write ('введите целое n = ');
readln (n);
p: = 1;
for i: = 1 to n do
p: = p * i;
write (n, '! = ',p);
readln
end.