Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
gfsggstgf
10.04.2023 04:47 •
Информатика
Составьте программу, которая вычисляет произведение чисел от 5 до 10 и выводит на экран ответ исключительно через while
Показать ответ
Ответ:
Kirich0ult
07.10.2020 05:37
var
a: byte;
mult: integer;
begin
a := 5;
mult := 1;
while a < 11 do
begin
mult := mult * a;
a := a + 1;
end;
writeln('Произведение = ', mult);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
СталкерняотВовы
26.03.2020 04:59
ответыВопросыИнструментТяни/Толкай ис-пользуется для того, чтобы под-тянуть или вытолкнуть грани,Для увеличения или уменьше-ния объема модели. Сколько нарис. 5.19...
котикkatya
23.02.2021 14:10
Сноски. Урок 1 Определи Вид сноски, если она расположена в конце страницы.обычнаяСноскапростая сноскаконцевая СноскаКонечная Сноска...
Anastasiya12377
08.08.2021 04:25
Написать программу, которая получает два целых числа A и B (0 A B) и выводит все натуральные числа в интервале от A до B....
ATimofeeva
01.08.2020 08:44
Решить задачу. Сколько минут принтер будет распечатывать документ, если: 1. В документе 30 листов, 2. На каждой странице 60 строк по 50 символов, 3. Принтер выпечатывает...
kettyperry16
03.08.2021 18:46
Оценка Порассуждайте на тему «Влияние сетевых технологий на формирование информационной культуры в современном обществе...
Lasosь
02.12.2020 15:07
код №1:name = input( Введіть ім’я: )place = input( Введіть місце: )goal = input( Введіть предмет: )print ( name + відправляється в подорож! )print ( Ціль - + place...
Mario1543554
13.12.2022 13:09
У кого-нибудь есть приложении Системы управления базами данных ?...
natalia1676
03.02.2020 16:27
Розповідь як я користуюся інтернет речами...
10count
23.10.2022 02:55
14. Используя таблицу 1.19, расшифруйте следующие сообщения. Таблица 1.20 (9,1) (1,1) (2,2) (1,3) (4,1) (12,1) (5,3) (10,3) (3,2) (1,2) (2,1) (6,3) (11,3) (12,1)...
DarkOP
23.12.2022 03:21
3. Предположим, вы имеете внешний жесткий диск объемом 3 Тб. Сколько дисков формата Blu-Ray он может заменить, если объем одного диска равен 25 Гб? 14. Предположим,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: byte;
mult: integer;
begin
a := 5;
mult := 1;
while a < 11 do
begin
mult := mult * a;
a := a + 1;
end;
writeln('Произведение = ', mult);
readln;
end.