Даны 6 чисел. найти максимальное четное число.
написать программу с помощью Pascal и используя цикл repeat....until
помогите, пожалуйста!
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
