Ввести два числа, если они оба четные, найти наибольшее из них. Pascal
Ввести два числа, если они оба четные, найти наибольшее из них. Pascal
Гость
Ответ(ы) на вопрос:
Гостьvar a,b:integer;
begin
writeln('Введите два числа');
readln(a,b);if (a mod 2=0) and (b mod 2 =0) then
if a>b then write(a) else write (b)
end.
Не нашли ответ?
Похожие вопросы