Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
124354i
29.04.2023 09:29 •
Информатика
Составить программу для нахождения произведение чисел от 1 до n. для циклов: 1)for 2)while 3)until
Показать ответ
Ответ:
Ксюшалебедева
22.09.2020 18:47
//Pascal
var
a, p: word;
i, n: integer;
begin
readln(n);
//цикл for
p := 1;
for i := 1 to n do
p := p * i;
writeln(p);
//цикл while
i := 1;
p := 1;
while i <= n do
begin
p := p * i;
i := i + 1;
end;
writeln(p);
//цикл repeat
i := 1;
p := 1;
repeat
p := p * i;
i := i + 1;
until i > n;
writeln(p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
jamal55
07.12.2022 13:20
Составьте программу, которая рисует куб (дліна ребра вводится с клавиатуры). масштаб: 1 клетка - 20 пикселей. pascalabc...
elizavetdu04
08.10.2022 01:14
Дайте определение службы WWW (Всемирная паутина).Как связаны между собой Web-страницы Всемирной паутины?Что такое Web-сайт?Дайте определение понятию «Поисковые системы».Кто является...
idrisovbulat
06.04.2023 12:39
Имеется текст ,объем которого 15 кбайт.на каждой странице 20 строк по 16 символов.каждый символ кодируется 8 битами. определить количество страниц в тексте....
LikaKostukova
17.02.2023 17:16
111011101-1101110110 в двоичной...
fhftufdy12233p01cf0
10.07.2022 05:49
ЛЕГКИЕ ЗАДАНИЯ В PASCAL 1. Написать программу для вывода на экран всех больших латинских букв в обратном порядке. 2. Дана маленькая русская буква. Написать программу, преобразовывающую...
RitaTrott
14.11.2022 08:20
1. Для чого призначений табличний процесор?А) Для роботи з текстами Б) Для роботи з таблицями В) Для роботи з малюнками...
Jeepwrangler74
08.11.2022 16:46
Закончите предложение до конца жили-были зебра оля зебра оля зебра зоя они были сестричками они любили бегать...
verinikamusia
08.11.2022 16:46
Ксравнительно -анатомическим доказательствам эволюции относятся: а)переходные формы между группами животных б)признаки сходства зародышей позвоночных. в)филогенетические ряды г)сходство...
Evelina17890
08.11.2022 16:46
Кто не знает. не отвечайте характеристика героя февронии из повести о петре и февронии муромских вам примерный план: 1определение места героя среди других персонажей. 2 степень...
николь43
08.11.2022 16:46
Рассмотрите движение концов минутное часовой стрелки часов что между этими движениями общего чем они отличаются друг от друга ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a, p: word;
i, n: integer;
begin
readln(n);
//цикл for
p := 1;
for i := 1 to n do
p := p * i;
writeln(p);
//цикл while
i := 1;
p := 1;
while i <= n do
begin
p := p * i;
i := i + 1;
end;
writeln(p);
//цикл repeat
i := 1;
p := 1;
repeat
p := p * i;
i := i + 1;
until i > n;
writeln(p);
end.