Журналист
Souzhamda 3 ноября 2019 в 10:20

Введите 3 числа - a, b, c. Определите, имеется ли среди чисел хотя бы одно чётное число. Выведите на экран соответствующее сообщение: "Есть" либо "Нет".

Var  a, b, c: integer;
begin
  read(a, b, c);
  if (a mod 2 = 0) or (b mod 2 = 0) or (c mod 2 = 0)
    then write(Есть)
  else write(Нет);
end.
Var a, b, c, tempA, tempB, tempC : integer;
begin
write(Введите 1 число: );
readln(a);
write(Введите 2 число: );
readln(b);
write(Введите 3 число: );
readln(c);
if a mod 2 gt; 0 then
tempA := 0
else
tempA := 1;
if b mod 2 gt; 0 then
tempB := 0
else
tempB := 1;
if c mod 2 gt; 0 then
tempC := 0
else
tempC := 1;
if (tempA = 0) or (tempB = 0) or (tempC = 0) then
write(Есть!)
else
write(Нет!);
end.
Компьютеры и вычисления
Для комментирования необходимо зарегистрироваться на сайте