Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
belos1988
02.04.2023 07:39 •
Информатика
Дан набор ненулевых чисел ,признак его завершения число 0 .вывести сумму всех положительных четных чисел из данного набора. если требуемые числа отсутсвуют вывести то вывести 0
Показать ответ
Ответ:
AzaLin1
05.07.2020 14:29
Var a,s:integer;
begin
a:=-1;
while (a<>0) do begin
read(a);
if a>0 then s+=a;
end;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Scorpionoid
08.04.2020 19:44
1. В массиве размерностью 5х6 заменить максимальный и минимальный элементы массива их квадратами. 2. В массиве размерностью 3х7 вычислить среднее арифметическое элементов...
Арменкаааа
15.06.2021 13:50
Напишите на язык PYTHON следующие команды (смотри рисунок). ответзапиши цифрами без пробелов.НАПРИМЕР 25143 *1.ввести целое значение переменнойх2.ввести вещественное...
serguhovaannagmail
05.03.2020 23:39
Var tab: array [0..5] оf Integer; 1) що означає цей запис? 2) скільки елементів містить масив? 3) Яка назва цього масиву? 4) Які дії можна виконувати з елементами масиву?...
ОлесяБычкова
15.02.2022 15:32
5-7 . написать программы в pascalabc....
RazzyMatem
04.04.2022 22:29
№1. дана последовательность целых чисел. напишите программу, подсчитывающую, сколько в этой последовательности отрицательных чисел. №2. дана последовательность целых...
Marfushka77
24.09.2020 06:51
написать программу по информатике по программе кумир 2 чтобы получились такие рисунки которые приложены ниже...
Игорь981
07.02.2020 07:51
Впиши пропущенные слова:Глобальная сетьявляется документов.системы это программы для быстрого поиска информации .Одна из популярных российских поисковых систем называется....
varyatitova20
15.07.2021 21:33
В классе Program напишите следующие методы и вызовите их в главном методе Main: 1. Метод, с которого вычисляется периметр и площадь прямоугольного треугольника по введенным...
joom3
22.04.2021 20:24
Написать программу, в которой двумерный массив размерностью 5 на 5 заполняется случайными числами от -50 до 50, и выводит их на экран в виде матрицы....
апепе1
14.03.2020 14:04
Запишите наименьшее число х, для которого истинно высказывание (Х 16) и не ( в числе х нет одинаковых цифр)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
a:=-1;
while (a<>0) do begin
read(a);
if a>0 then s+=a;
end;
writeln(s);
end.