Решите, максимально отдам
Последовательно вводятся с клавиатуры натуральные числа (конец ввода – число 0). Найти
максимальное из четных чисел.
ПолинаРыжкова3
1
29.04.2020 14:10
0
Другие вопросы по теме Информатика
NekitGafar
25.06.2019 18:20
AutWezer
25.06.2019 18:20
Дина19986
14.05.2020 10:46
Kovalenko2001N
14.05.2020 10:46
учусь5
14.05.2020 10:46
Вичка11111111
09.09.2021 23:36
dreadman989
11.05.2021 11:09
lina00p0cjtl
11.05.2021 11:08
Пакмен007
02.06.2021 19:11
Популярные вопросы
- Решение без калькулятара 237 умножить на 2000 а потом 2000000 разделить на 350...
1 - За три дня в магазине побывало 11.875 покупателей. в четверг было втрое меньше,...
1 - Напишите таблицу исполнительной власти: 1.чем представлена 2.как формируется...
3 - Известная французского короля людовика 14 государство-это я которая обозначает...
1 - А). ежемесячные доходы фирмы состовляют 720.000руб. , а расходы - 580.000 руб....
2 - Усталая, она замолчала. усталая какая часть речи?...
2 - Напишите сочинение на 150 слов, нравственное достоинство человека его честь...
3 - Найти log8 по основанию 0,5. с решением, если можно,...
1 - Ihave got apink ballerina too .так правильно придложения...
1 - Чому у грілку для хворого наливають саме гарячу воду, а не якусь іншу рідину?...
1
Var A,b,N:integer; Begin Read(n); If n=0 then writeln('штрафное время не заработано') else While n<>0 do If n>0 then a:=a+n else b:=b+n; Writeln('a-',a,'b-',b,'общее-',a+b); End.
Объяснение:
тип вот
2,4,6,8,0.
Правильный ответ не сомневайся.