Требовалось написать программу, которая определяет, имеется ли посреди введенных с

Требовалось написать программу, которая определяет, имеется ли посреди введенных с клавиатуры положительных целых чисел а и b желая бы одно четное. Была
написана последующая программка:
var a, b: integer;
begin
readln(a, b);
a := a mod 2;
if a gt; 0 then b := b mod 2;
if b gt; 0 then
writeln ('четных чисел нет')
else
writeln ('четное число есть');
end.
Известно, что программка написана с ошибками. Последовательно сделайте три задания:

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

Есения Комратова 2019-03-02 15:41:13

Вы не проверяете число на чётность, вы проверяете остаток от разделения на 2, а необходимо проверять само число. Ниже в ответе приведён верный пример.