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

Question

Информатика

Пейги

7 июня, 14:53

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

+4

Ответы (1)

Знаете ответ на вопрос?

Цветой · Answer 1

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.