Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
riborg250000000
26.02.2023 09:20 •
Информатика
Нужно сделать в паскале: составьте программу, составьте программу, которая вычисляет произведение чисел от 1 до n. где n вводится с клавиатуры.
Показать ответ
Ответ:
icefice0
05.07.2020 10:50
Var p,i, n:integer;
begin
p:=1;
writeln('Введи n');
readln(n);
if n>=1 then
begin
for i:=1 to n do
p:=p*i;
writeln(p);
end else writeln('n>=1');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Olegbro364682
24.04.2021 02:42
Краткое сообщение об любом из профессии связанные с компьютером....
annaleha2009
16.10.2020 14:38
При изучении объекта реальной действительности можно создать...
Velievtim2000
21.02.2020 19:11
Назовите какие организмы могут находиться на первом трофическом уровне следующих экосистемах поверхностные воды океана глубоководные океанические сообщество рифтовых зон одиночное...
leryush1
20.09.2020 10:16
В (В/в)ологодских и (A/a)рхангельских деревнях с заглавной или строчной буквы?...
GNRK
09.01.2020 01:52
В книге 200 страниц. Какова вероятность того что случайно открытая страница будет иметь порядковый номер, оканчивающийся на 6? а) 0,6б) 0,7в) 0,1 г) 0,5...
Snake505
21.01.2023 22:15
Для чего человек читает? Что он может узнать из книг? Можно ли взять из книг какой-либо жизненный опыт? Каких героев мы встречаем в произведениях?...
dmitriyslesarev
01.12.2022 19:32
Площадь прямоугольника равна 240 дм, а ширина на 8 дм меньше длины. Найти длину и ширину этого прямоугольникa...
helena59365
06.10.2022 08:06
Складіть у зошиті таблицю «Становий поділ українського суспільства на початку XV ст....
Isei
16.03.2023 16:32
Күрделі Сөздерді тауып морфологиялық талдау жасаңыз ертеңге дейін керек лучше ответ берем...
missvaleria2
02.02.2022 10:30
Куди бабка перенесла Карика и валю...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
p:=1;
writeln('Введи n');
readln(n);
if n>=1 then
begin
for i:=1 to n do
p:=p*i;
writeln(p);
end else writeln('n>=1');
end.