Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
mneo98
24.11.2020 14:56 •
Информатика
Найти произведение чисел введеных с клавиатуры, пока не будет введен 0
Показать ответ
Ответ:
sddnblck
16.09.2020 22:27
Var a,b:integer;
begin;
b:=1;
a:=1;
while a<>0 do
begin;
readln(a);
if a=0 then break;
b:=b*a;
end;
writeln(b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Pro2222
07.06.2022 18:30
Укажите названия компьютеров и название доменов в следующих адресах: lego.rdsor.md ibl.stof.ua edu.ru объясните структуру адресов электронной почты. создайте адрес...
alisherqwd
29.06.2022 21:25
Этапы моделирования включают в себя: омоделирование, раскраску, освещение, съемку, рендерингомоделирование, тонирование, импортированиемоделирование, визуализацию,...
fdimon
16.08.2022 19:04
1. Які службові слова використовуються у повній умові розгалуження? A) if... then... else; b) if... then... do; B) if... then; T) if... then... trueже набуватзначень:...
bella77777
30.12.2020 21:23
Исполнитель Робот ходит по клеткам бесконечной вертикальной клетчатой доски, переходя по одной из команд вверх, вниз, вправо, влево в соседнюю клетку в указанном...
ildar6464
11.01.2023 13:16
Определите, сколько байт необходимо для кодирования слова сигнал в системе ascii...
anyamaleva97
25.11.2020 22:13
Дано целое число а. если значение а 0, то необходимо увеличить его на единицу. разработать схему алгоритма для решения этой . протестировать алгоритм для a=5, a=-4,...
никита3427
25.11.2020 22:13
Что входит в состав формулы в экселе...
quaKkKer567
25.11.2020 22:13
указаны пути от корневого каталога к некоторым файлам, хранящимся на магнитном диске. отобразите файловую структуру в виде дерева. с: \country\usa\info\culture.txt...
Katia53535
24.01.2021 02:16
Какое устройство не находиться в системном блоке? 1.видеокарта 2.процессор 3.сканер 4.жёсткий диск 5.сетевая карта...
lerakuznyak
22.06.2022 06:06
Файл размером 6 мбайт передаётся через некоторое соединение за 3 минуты. определите время (в секундах), за которое можно передать через это же соединение 4 мбайта....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin;
b:=1;
a:=1;
while a<>0 do
begin;
readln(a);
if a=0 then break;
b:=b*a;
end;
writeln(b);
end.