Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
lyalyajan
23.08.2022 06:18 •
Информатика
Написать программу, которая вычисляет произведение целых чисел от 1 до n. число n запрашивается с клавиатуры. pascal abc
Показать ответ
Ответ:
katenok1706
08.10.2020 21:15
Var
i,n:integer;
s:real;
begin
Write('n= ');
Readln(n);
s:=1;
for i:=1 to n do s:=s*i;
Writeln('Произведение ',s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
влад20491
02.01.2021 03:00
На двумерный массив в pascal! вводится массив n*n и число k. вывести номер строки, сумма элементов которой равна или наиболее близка к сумме элементов столбца с номером...
Maks2222222222
09.06.2023 07:34
Установил игру hellgate london при запуске игры выдаёт вот такую ошибку : с: \program files (x86)\hellgate\sp_x64\hellgate_sp_dx9_x64.exe c: \program files (x86)\hellgate\mp_x64\hellgate_mp_dx9_x64.exe...
настя7603
01.08.2020 06:22
Створіть новий файл Python та підключіть відповідний модуль. Створіть нове вікно світло червоного кольору із розмірами 600 на 700 пікселів із забороною змінювати розміри...
Милаха7884433
27.10.2020 05:44
Створіть вікно жовтогарячого кольору з розмірами 600х600 та з заголовком Перше вікно . Створіть текстове поле будь-якого кольору. Ширина поля 30 знаків та шрифт Саlibri...
alona2017
03.08.2022 13:31
Вычислить указанные величины, зависящие от условий, с логических функций...
filimo2000
03.10.2022 22:26
Остача від ділення==///%*!==**...
ilyadmitriev0
16.05.2020 05:06
Даю Максимальное количество нужно заполнить таблицу эксель...
Limon4iK1000
28.03.2022 01:46
Назовите источники информации Информатика...
edynorozhok
02.07.2021 23:01
Для значений A = истина, B = ложь, C = истина вычислите значение логического выражения (B = C ∨⏋A) ∨⏋(A & B) ...
help275
05.06.2023 01:13
Завдання 1. Складіть проект, у якому виконавець намалює 5 прямокутників, розміщених усередині одинодного, якщо довжини сторін першого з них дорівню-ють аi b, а довжини...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,n:integer;
s:real;
begin
Write('n= ');
Readln(n);
s:=1;
for i:=1 to n do s:=s*i;
Writeln('Произведение ',s);
end.