Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
1goroh2
21.07.2020 16:23 •
Информатика
Склавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0. требуется найти произведение чисел из введенной последовательности кратных пяти
Показать ответ
Ответ:
макс3113
07.07.2020 19:15
var
x, s: integer;
begin
s := 1;
repeat
readln(x);
s *= (x = 0 ? 1 : x);
until (x = 0);
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
надечка2005
21.10.2021 04:15
Рассмотрите изображение. - Составьте алгоритм действий для создания данного изображения. - определяет инструменты; - устанавливает порядок действия для создания изображения....
малика225
01.11.2022 09:48
Вычисли значение математического выражения в MS Excel: (100+96)−2(71:(6+7)). (ответ округли до сотых)...
tflash191
09.11.2022 16:11
Нужна таблица: Принцип управления интерфейсом...
evrolokki
12.12.2021 14:59
До Ганнусі виправити помилки й допиши алгоритм. 1. Виділи слово «мені».2. Вибери кнопку % вирізати34. Вибери кнопкуВставити5. Виділи слово «дні».67. Вибери кнопкуставитидо...
berikkanovbekzat
04.05.2022 19:08
1. В каком году придуман язык Лого? И 2. Что такое Scratch?3. Как можно загрузить среду программирования Scratch?4. Как включить среду программирования Scratch?5. Из...
dilya1921
28.01.2023 06:56
на сегодня нужна лабораторная работа по химии...
Bbqqall
24.05.2020 21:01
Англия қандай елдерді...
irochkakarpenkp0bint
12.08.2022 02:05
в стклянный стакан массой 120 налили 200г молока при температуре 80 цельсия. Какое количество теплоты выделится при охлаждении стакана с молоком до 20 цельсия...
shayukalena
29.06.2020 00:28
Дано: a 0, b 0. Яка з наведених нерівностей може бути правильною? А) a^2 1 В) a-b 0 Г) a^2b^3 0...
elitael
26.07.2021 08:53
Расскажите о детстве Сергия Радонежского, используя фрагменты Жития... . Как вы думаете, какие интонации должны преобладать в вашем сообщении?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
x, s: integer;
begin
s := 1;
repeat
readln(x);
s *= (x = 0 ? 1 : x);
until (x = 0);
writeln(s);
end.