Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
вано138
11.01.2023 22:50 •
Информатика
Дано натуральное число n. составить программу (или блок схему алгоритма) вычисления произведения p = 1*2*3* *n
Показать ответ
Ответ:
Vlad584q
10.07.2020 11:53
Python:
n=input("N=")
a=1
for x in xrange(1, n+1):
a*=x
print a
Pascal:
program z1;
var
a, i: integer;
b:longint;
begin
readln(a);
b:=1;
for i:=1 to a do
b:=b*i;
writeln('b=', b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
renger100
14.12.2021 22:06
Построить график функций...
toshakovanadez
15.01.2023 08:37
Дано целое число а. если значение а 0, то необходимо уменьшить его на 4. написать программу для решения этой . программа должна иметь дружественный интерфейс....
maksikus1
18.06.2021 20:34
Вычислить сумму 1+1/2+ 1/3 +.. +1/n по с# только цикл...
дошикестдошик
18.06.2021 20:34
Пользователь вводит число,программа должна вывести на экран 3 случайных числа ,не с введённым пользователем числом . ( паскаль) я написала ,но проблема в условии ( сейчас...
sloppysec
07.01.2020 08:29
Сложите числа, а затем проверьте результаты, выполнив соответствующие десятичные сложения: 1001,112 и 101,012; 4,38 и 17,68; 7,D16 и E,F16;...
whitesquirrelp06pc0
25.06.2020 07:20
14. Учитывая действительные числа, b, c, d. Если a b c d, оставьте число без изменений, в противном случае замените все числа их квадратами. 15. Даны целые числа x, y,...
olga810706
11.12.2022 01:28
Какие предложения можно составить из слов верх низ толстый худой смеяться плакать ссора мир горький сладкий...
кэтлин2005
11.12.2022 01:28
Выделите корень в словах иду,идёшь,идёт,идёте,читать,прочитать,дочитать,перечитать....
SofiZ2005
11.12.2022 01:28
Игра викторина долг в жизни людей разных профессий составьте((...
ok683000
11.12.2022 01:28
Длина железнодорожной магистрали 3140 км. какой длины получается линия, изображающая эту магистраль на карте, сделанной в масштабе 1: 10000000...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n=input("N=")
a=1
for x in xrange(1, n+1):
a*=x
print a
Pascal:
program z1;
var
a, i: integer;
b:longint;
begin
readln(a);
b:=1;
for i:=1 to a do
b:=b*i;
writeln('b=', b);
end.