-Цитата от Трэй 
-Цитата от Hammer -Цитата от Трэй
вайн в первую очередь попробовал
не хочет запускать
дос эмуляторы могут помочь?
Pascal ABC должен под вайном пойти.
ок, попробую abc
турбо не завёлся
Потому что Turbo под DOS.
-Цитата от Kasper[ALP CLAN] - var a,b:ineger;
begin;
readln(a,b);
a:=a mod 2;
if a>0 then b:=b mod 2;
if b> then;
writeln('чётных чисел нет');
else writeln('чётное число есть');
end.
Как доработать программу с использованием логической операции OR?
Если правильно понял, то:
Код:
var a,b: integer;
begin;
readln(a,b);
if (a mod 2 = 0) OR (b mod 2 = 0) then
writeln('чётное число есть')
else
writeln('чётных чисел нет');
end.