На вход программы поступает неизвестное количество чисел целых, ввод заканчивается нулём. найти максимальное из введённых чётных чисел. заранее .
StrangeLis
3
10.04.2019 20:42
44
Другие вопросы по теме Информатика
Stepancherk
01.10.2019 18:00
WFCPDF
01.10.2019 18:00
gravasamp
01.10.2019 18:00
NightyMigly
01.10.2019 18:00
Matvey0061
01.10.2019 18:00
Аманда55573
01.10.2019 18:00
Sheik077
31.05.2023 09:45
raisara
31.05.2023 09:39
alamez69
31.05.2023 09:32
Популярные вопросы
- Точка движется равномерно и прямолинейно противоположно положительному направлению...
2 - Возможно ли разделить нечетное число на четное? !...
3 - Чому нас навчають євангельські притчі?...
1 - Представьте, что клетка- это большой город. с какими структурами города можно сравнить...
3 - Зелёный цвет растению придаёт пигмент клетке растения он находится в--...
3 - Составить диалог о ласточкином гнезде...
2 - Найти закономерность и заполнить пустые клетки 1 строка: ? 300000 2 строка: 289573...
3 - Стальной стержень массой 600г нагреть от 20с до 1020с на сколько увеличилось внутренняя...
2 - Отрезок мn имеет длину х см (рис.15). начертите отрезок ав. длина которого равна...
1 - 1. царь петр | прорубил это в европу это бывает на экране при работе компьютера...
2
var a,k:integer;
BEGIN
k:=0;
repeat
read(a);
if (a>k) and (a mod 2=0) then
k:=a;
until a=0;
writeln(k);
end.