Напишите программу в паскале котороя находит из двух - вопрос №8233287 от Johngear 16.08.2021 08:24

Question

Информатика: Напишите программу в паскале котороя находит из двух чисел четное

Johngear · Answer

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var (a,b):=ReadInteger2;
if a.IsEven then Writeln(a,' - четное')
else Writeln(b,' - четное')
end.

Примеры
3 18
18 - четное

10 7
10 - четное

7 9
9 - четное - это неверно, нарушено условие (нет четных)

6 12
6 - четное - это верно, хоть условие и нарушено (оба четных)