Дано трехзначное натуральное число. Написать программу, которая определяет верно ли, что...

0 голосов
18 просмотров

Дано трехзначное натуральное число. Написать программу, которая определяет верно ли, что сумма цифр этого числа является нечетной ( число вводится с клавиатуры).


Информатика (28 баллов) | 18 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Var a,s:integer;
begin
 readln(a);
 s:=a div 100+a div 10 mod 10+a mod 10;
 if s mod 2=1 then writeln('Верно. s = ',s,' - нечётна')
 else writeln('Нет. s = ',s,' - чётна')
end.

Пример:
251
Нет. s = 8 - чётна

(194k баллов)