Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Олежик121314
01.02.2020 10:23 •
Информатика
Составьте програму вычисления произведения первых 7 натуральных чисел используя цикл.
Ответ:
Kriiisskriiiis
03.10.2020 13:03
var
i,n,p:integer;
begin readln(n);
p:=1;
for i:=1 to n do p:=p*i;
write(p); end.
0,0
(0 оценок)
Популярные вопросы: Информатика
юсуф37
03.01.2023 13:49
C++ дан ряд чисел 1 1 1 2 2 3 1 3 4 5 3 нужно вывести число меньше всего втречающееся в данном массиве...
ponomarevaaaaaaaaaa
03.01.2023 13:49
Результат свойство информации сегодня вам сообщили достоверную и полную информацию о месте, дате, времени отправления поезда.но дата его отправления -вчерашний денью расписание...
КсюшаАнтропова
20.02.2020 12:50
Нужно составить программу в паскаль. 1. в массиве 10 чисел. положительные числа замените их номерами. вывести на экран в столбик изменившийся массив. 2. в массиве м(8) найдите...
ванёк10062005
20.02.2020 12:50
Алфавит племени мумбо-юмбо состоит из 128. определить сколько информации внесет себе...
losp
27.05.2020 20:46
Первая в мире паровозная железнодорожная линия была построена и открыта в 1825 году где ?...
тупоумная2525
27.05.2020 20:46
Найдите 3/7 от суммы чисел 500 и 130...
nayahoff123
27.05.2020 20:46
Решите из разных домов навстречу друг другу вышли коля и миша. расстояние между ними 850 м, которое они должны пройти за t=5 мин. миша идет со скоростью 70 м/мин. какова скорость...
Littlelimegirl
27.05.2020 20:46
Заполни пропуски. 901, 900, 897, 894....
alisherpitbul
27.05.2020 20:46
Записать примеры в два столбика на-чь с разными частями речи...
aarmen020
27.05.2020 20:46
Год образования римской республики?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
i,n,p:integer;
begin readln(n);p:=1;
for i:=1 to n do p:=p*i;
write(p); end.