Даны 6 чисел. найти максимальное четное число. написать - вопрос №61560837 от stozhok1998 19.06.2021 08:36

Question

Информатика: Даны 6 чисел. найти максимальное четное число. написать программу с pascal и используя цикл , !

stozhok1998 · Answer

var  a, max, i: integer;begin  repeat    readln(a);    if(a max) and (a mod 2 = 0) then max := a;    inc(i);  until(i = 6);  writeln( Макс. четное число: , max);end....