Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Дмитрий59
0 / 0 / 0
Регистрация: 11.02.2014
Сообщений: 9
#1

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

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

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

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

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

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

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

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

Дано трехзначное число, найти произведение его цифр. - Pascal
№1 Дано трехзначное число, найти произведение его цифр. №2 Дано натуральное число n (n<=9999), вычислите верно ли, что это число...

1
Kodzaev
2999 / 1888 / 611
Регистрация: 30.04.2011
Сообщений: 3,054
11.02.2014, 22:43 #2
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
Привет! Вот еще темы с ответами:

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

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

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

Дано натуральное число. Определить, является ли разность его максимальной и минимальной цифр четным числом - Turbo Pascal
2)Дано натуральное число.Определить,является ли разность его максимальной и минимальной цифр четным числом. ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!


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

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

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