Инга1702
20.01.2020 04:56

Вводятся 3 числа , вывести на экран нечетные числа pascal

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
SofyaProstova
02.09.2020 09:50

var

a,b,c:integer;

begin

readln(a); readln(b); readln(c);

if a mod 2 <> 0 then

 Writeln('Первое нечетное')

else if a mod 2 = 0 then  

  Writeln('Первое четное');

   

  if b mod 2 <> 0 then

 Writeln('Второе нечетное')

else if b mod 2 = 0 then  

  Writeln('Второе четное');

   

  if c mod 2 <> 0 then

 Writeln('Третие нечетное')

else if c mod 2 = 0 then

  Writeln('Третие четное');

   

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота