ДАЮ 50 БАЛЛОВ
ПЯТОЕ ЗАДАНИЕ В ПРАКТИЧЕСКОЙ ЧАСТИ
выести две числа найти наибольшее четное число при наличии двух условий пишется например так
Приложения:
Ответы
Ответ дал:
0
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.
Похожие вопросы
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад