Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Дмитрий59
0 / 0 / 1
Регистрация: 11.02.2014
Сообщений: 9
#1

Дано трехзначное число N. Проверить будет ли сумма его цифр четном числом - Turbo Pascal

11.02.2014, 18:01. Просмотров 1452. Ответов 1
Метки нет (Все метки)

Дано трехзначное число N. Проверить будет ли сумма его цифр четном числом. Ответ вывести в виде логического значения (True, false). Пожалуйста срочно. Заранее спасибо.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.02.2014, 18:01
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дано трехзначное число N. Проверить будет ли сумма его цифр четном числом (Turbo Pascal):

Дано трехзначное число. Будет ли сумма его цифр четном числом
Дано трехзначное число N. Проверить будет ли сумма его цифр четном числом....

Дано трёхзначное число, является ли сумма его цифр двухзначным числом
5. Дано трёхзначное число, является ли сумма его цифр двухзначным числом.

Дано трехзначное число . найдите сумму его цифр
дано трехзначное число . найдите сумму его цифр

Дано трехзначное число.Определить, является ли сумма его цифр двузначным числом?
№1 Дано трехзначное число.Опредилить являеться ли сума его цифр двухзначным...

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

Дано трехзначное число. Определить является ли произведение его цифр трехзначным числом
Дано трехзначное число. Определить является ли произведение его цифр...

1
Kodzaev
3002 / 1891 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
11.02.2014, 22:43 #2
Лучший ответ Сообщение было отмечено Дмитрий59 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  n: integer;
 
begin
  repeat
    Write('Введите трехзначное число: ');
    Readln(n)
  until (n >= 100) and (n <= 999);
  Writeln((n div 100 + n div 10 mod 10 + n mod 10) mod 2 = 0);
  Readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.02.2014, 22:43
Привет! Вот еще темы с решениями:

Дано трехзначное число, найти произведение его цифр.
№1 Дано трехзначное число, найти произведение его цифр. №2 Дано натуральное...

Дано натуральное число n, определить сколько цифр в числе n, чему равна сумма его цифр
Дано натуральное число n, определить сколько цифр в числе n, чему равна сумма...

Проверить дествительно ли при четном n число n/12+n^2/8+n^3/24 будет ли целым
проверить дествительно ли при четном n число n/12+n^2/8+n^3/24 будет ли целым

Дано натуральное число. Определить, является ли разность его максимальной и минимальной цифр чётным числом
Дано натуральное число. Определить, является ли разность его максимальной и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru