Чтобы число было максимальным нужно, чтобы на первом месте стояли самые большие цифры. Это две двойки подряд.
Таких чисел 2:
221121122121
221212211211
Видно, что второе число больше, т.к у первого на 4-м месте - 1, а у второго 2
Ответ 221212211211
Var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.
Вот, они все не меньше 50 и чётные
74, 86, 122
Слайд это просто только тебе нужно программа повер пойнт. у меня есть повер пойнт я слайд повер пойнтом. Если хочеш закачай но ты найдёш лучши ответ