Вопрос по информатике:
Дано 4 значное число. Определить , является ли сумма его цифр четным?
Пожаловаться
- 16.05.2017 00:04
- Информатика
- remove_red_eye 10488
- thumb_up 14
Ответы и объяснения 2
Program z1; var t, c, d, e, n, z:integer; begin
writeln ('введите любое четырёхзначное число'); writeln; readln (n);
t:=n div 1000;
c:=(n-t*1000) div 100;
d:=(n-t*1000-c*100) div 10;
e:=n-t*1000-c*100-d*10;
z:=t+c+d+e; writeln (z); writeln;
if z mod 2 = 0 then writeln ('да, сумма цифр в числе чётна')
else writeln ('нет, сумма цифр в числе не чётна'); end.
writeln ('введите любое четырёхзначное число'); writeln; readln (n);
t:=n div 1000;
c:=(n-t*1000) div 100;
d:=(n-t*1000-c*100) div 10;
e:=n-t*1000-c*100-d*10;
z:=t+c+d+e; writeln (z); writeln;
if z mod 2 = 0 then writeln ('да, сумма цифр в числе чётна')
else writeln ('нет, сумма цифр в числе не чётна'); end.
Пожаловаться
- 18.05.2017 04:00
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы