С клавиатуры вводятся два символа. Определить четная ли сумма их кодов? (паскаль)

Question

Информатика

Лукаха

9 октября, 22:27

С клавиатуры вводятся два символа. Определить четная ли сумма их кодов? (паскаль)

+1

Ответы (1)

Знаете ответ?

Витаха · Answer 1

Var c1, c2:char;

begin

readln (c1, c2) ;

if odd (ord (c1) + ord (c2))

then writeln ('Сумма кодов нечётна')

else writeln ('Сумма кодов чётна') ;

end.

Пример:

AB

Сумма кодов нечётна