50 пятое в практической части выести две числа найти наибольшее четное число при наличии двух условий пишется например так

mamka18 mamka18    1   16.03.2019 09:13    1

Ответы
mishazhidkov2 mishazhidkov2  25.05.2020 16:10

var

i,a, cmax: integer

begin

cmax:= -999;

for i:= 1 to 2 do

begin

readln (a);

if (a mod 2=0) and (a> сmax) then

cmax:= a;

End;

if cmax <> -999 then write (cmax)

Else write ('четные числа отсутствуют')

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика