Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Kuka-7
0 / 0 / 0
Регистрация: 23.11.2012
Сообщений: 4
#1

Верно ли что число 4-значное и у него сумма крайних цифр равна сумме средних цифр? Найти все такие числа. - Pascal

23.11.2012, 06:33. Просмотров 1164. Ответов 1
Метки нет (Все метки)

Написать программу : Дано нат. число. Верно ли что число 4-значное и у него сумма крайних цифр равна сумме средних цифр? Найти все такие числа.
Заранее спасибо
http://www.cyberforum.ru/pascal/thread312718.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2012, 06:33
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Верно ли что число 4-значное и у него сумма крайних цифр равна сумме средних цифр? Найти все такие числа. (Pascal):

Найти все четырехзначные числа,у которых сумма крайних цифр равна сумме средних цифр,а само число делится на 6 и 27
Найти все четырехзначные числа,у которых сумма крайних цифр равна сумме средних...

найти на экран все четырехзнаные числа у которого сумма первой и последней цифры равна сумме двух средних цифр
напишите программ на паскаль

Верно ли, что сумма двух первых цифр данного четырехзначного числа равна сумме двух его последних цифр
Помогите решить задачки: 1) Проверить истинность высказывания: "Сумма двух...

найти все трёхзначные числа, такие у которых сумма цифр равна A, а само число делиться на B.
Помогите пожалуйста решить задачку :-) найти все трёхзначные числа, такие у...

Найти все такие числа N (N<=100), что у числа N! Сумма цифр – простое число
Доброе время суток. Задача такова: найти все такие числа N (N&lt;=100), что у...

1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,648
Записей в блоге: 1
23.11.2012, 11:25 #2
Лучший ответ Сообщение было отмечено Kuka-7 как решение

Решение

Pascal
1
2
3
4
5
6
Var i:integer;
Begin
    For i:=1000 to 9999 do
     if (i div 1000 + i mod 10)=(i div 100 mod 10 + i div 10 mod 10) then write(i:5);
    readln;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.11.2012, 11:25
Привет! Вот еще темы с решениями:

Вывести те четырехзначные числа, у которых сумма крайних, равна сумме средних
Вывести те четырехзначные числа, у которых сумма крайних, равна сумме...

Дано четырехзначное число. Выведите на экран TRUE, если произведение крайних цифр этого числа кратно сумме цифр числа
Помогите решить простые задачи мозги кипят: 4-я. Дано четырехзначное число....

Сумма цифр трёхзначного числа кратна 7, само число также делится на 7. Найти все такие числа.
1) Сумма цифр трёхзначного числа кратна 7, само число также делится на 7. Найти...

Найти все такие N(N<100),что у числа N!(факториал) сумма цифр-квадрат целого числа
Без этой задачи мне не ставят зачет и я не могу выйти на сэссию=( &quot;&quot;Найти...


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

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

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