Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Solnyshko8080
15.05.2023 14:14 •
Информатика
Cклавиатуры вводятся 30 чисел.найти произведение положительных чисел.
Показать ответ
Ответ:
уляотличница
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 оценок)
Популярные вопросы: Информатика
Natashabuchok
23.02.2023 00:55
Для игры хотят разделиться на команды так, чтобы у любого все его друзья были с ним в команде. на сколько наибольшее количество команд получится разделиться? друзья: валя, маша,...
laman2210
23.02.2023 00:55
Вам даны две строки s и t, определите длину наибольшей строки, которая встречается в обеих. формат входных данных первая строка входных данных содержит строку s, вторая строка...
2зик20
02.08.2020 05:08
Вычислить значения функции y=|x|/10, если x 0 и y=10*x если х =0 a= все это сделать надо в С++...
mischkulentsov
25.09.2020 18:21
Нужно написать код на C++, который выводит поле для ввода матриц, после ввода сравнивает, симетричные ли они...
fkdsf234
05.08.2020 19:23
Требуется найти сумму цифр числа( )²,где 0 n 19000. составьте программу....
nika06102007
05.08.2020 19:23
Написать программу, которая вводит целые числа и складывает их, пока не будет введено число 0. вывести сумму чисел , введённых до 0....
vikasss1581
11.08.2021 19:29
Найти минимальный элемент массива из 10 элементов, который заполняется вводом двухзначных чисел с клавиатуры. блок схему и программу qbasic...
Вика1774574747
17.02.2022 08:00
Расшифровать текст, зашифрованный методом двойной перестановки.ЦТААЙПЕЕ_ТБГУРРСВЬЕ_ОРЗВВ...
CareyMahoney
30.04.2023 04:44
Дан массив из n элементов, необходимо определить каким по номеру является элемент со значением 8,вывести индекс данного элемента. Скопировать массив в переменной Mass2, вывести...
MAGNUSIK1
31.05.2022 10:11
Написать программу которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры очень нужно. вот график...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.