Даны 6 чисел. найти максимальное четное число. написать - вопрос №15615146 от patik20001 15.05.2022 23:24

Question

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

patik20001 · 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....