Решите, максимально баллов отдам
Последовательно вводятся с клавиатуры натуральные числа (конец ввода – число 0). Найти
максимальное из четных чисел.

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.

Правильный ответ не сомневайся.

Код программы var       x, l, m: integer; procedure calc(x: integer; var l: integer; var m: integer); begin       l : = 0;       m : = 0;       while x > 0 do       begin               l : = l + 1;               if m < (x mod 5) then                       m : = x mod 5;               x : = x div 5;       end; end; begin       for x : = 100 to 500 do       begin               calc(x, l, m);               if (l = 3) and (m = 4) then                       println(x, l, m);       end; end. вывод 100 3 4 101 3 4 102 3 4 103 3 4 104 3 4 105 3 4 106 3 4 107 3 4 108 3 4 109 3 4 110 3 4 111 3 4 112 3 4 113 3 4 114 3 4 115 3 4 116 3 4 117 3 4 118 3 4 119 3 4 120 3 4 121 3 4 122 3 4 123 3 4 124 3 4 суть процедуры заключается в том что она вычисляет кол-во цифр в 5ричном числе (l) и максимальну цифру в числе (м) максимальным для l=3 m=4 будет 124 или "444"_5