Информатика

Велимира

28 июня, 22:49

Требовалось написать программу, которая определяет, имеется ли среди введенных с клавиатуры положительных целых чисел а и b хотя бы одно четное. Была

написана следующая программа:

var a, b: integer;

begin

readln (a, b) ;

a : = a mod 2;

if a > 0 then b : = b mod 2;

if b > 0 then

writeln ('четных чисел нет')

else

writeln ('четное число есть') ;

end.

Известно, что программа написана с ошибками. Последовательно выполните три задания:

укажите, как, по вашему мнению, нужно доработать программу (не используя слож-ные условия), чтобы не было случаев ее неправильной работы;