Решите, , две . язык программирования: pascalabc.net. с клавиатуры вводятся два числа. вывести на экран меньшее из них. если числа равны, вывести «равны» с клавиатуры вводятся два натуральных числа. вывести на экран четные из них. если четных нет, вывести «нет»
Внимание! Если программа не работает, обновите версию!
№1
begin
var (a,b):=ReadReal2;
if a<>b then Writeln(Min(a,b))
else Writeln('РАВНЫ')
end.
№2
begin
var (a,b):=ReadInteger2;
if a.IsEven then Write(a,' ');
if b.IsEven then Write(b,' ');
if a.IsOdd and b.IsOdd then Writeln('НЕТ')
end.