Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Asked9me9
18.04.2022 16:09 •
Информатика
Cклавиатуры вводятся 30 чисел.найти произведение положительных чисел.
Показать ответ
Ответ:
masha91672
23.07.2020 16:46
Var a,b,c:integer;
begin
writeln('введите 30 чисел');
readln(a);
b:=1;
c:=1;
while b<>30 do begin
if a > 0 then c:=a*c;
readln(a);
b:=b+1;
end;writeln('ответ ',c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
andreyeses883
28.08.2020 09:36
Составьте блок-схемы и программы для решения следующих . определите и выведите на экран количество четырёхзначных чисел,которые делятся без остатка на 15 и 17 одновременно. в десятичной...
MaliikaZ
28.08.2020 09:36
Какой символ вставляет в текст клавиша enter? 1.конец предложения 2.конец строки 3.конец абзаца 4.конец текста...
kseniaLi555
28.08.2020 09:36
Как вы понимаете смысл фразы в операционных системах предусмотрена возможность выбора необходимого пользователю и технически возможного графического режима...
bisenov04
18.03.2022 12:30
Проверочная работа 1. Дан одномерный массив А из шести элементов: -125 200 10 5 43 11 1) Чему равно значение элемента массива с индексом 4? 2) Чему равно значение элемента массива...
kem8
08.08.2021 02:59
Какие есть возможности у кнопки Добавить обьекты...
Маrprokap
06.02.2023 18:23
Відгадай, яке я загадав число? Хто відгадає, отримає подяку на акк, та ше трішки балів просто так...
Filonov1812
02.07.2020 16:11
Как найти площадь стен комнаты если известна высота 2,5 м и общая площадь комнаты 18 метров квадратных?...
Yxcvbnm3
02.07.2020 16:11
Плотность воздуха. из 7кл . в книге в конце таблица должна быть подскажите ) я просто уже в 8...
annadarbinyan1
02.07.2020 16:11
Сумма двух чисел равна 1106. одно из них больше другого на 22. найдите эти числа....
StepanDor
02.07.2020 16:11
Укажите 150% в виде обыкновенной дроби....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('введите 30 чисел');
readln(a);
b:=1;
c:=1;
while b<>30 do begin
if a > 0 then c:=a*c;
readln(a);
b:=b+1;
end;writeln('ответ ',c);
end.