Question

Решите, пожалуйста, две задачи. Язык программирования: PascalABC.NET. Спасибо!

С клавиатуры вводятся два числа. Вывести на экран меньшее из них. Если числа равны, вывести «РАВНЫ»

С клавиатуры вводятся два натуральных числа. Вывести на экран четные из них. Если четных нет, вывести «НЕТ»

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

№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.