Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.79/91: Рейтинг темы: голосов - 91, средняя оценка - 4.79
0 / 0 / 0
Регистрация: 25.10.2010
Сообщений: 26
1

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

16.11.2011, 20:13. Просмотров 17584. Ответов 4
Метки нет (Все метки)

Сумма цифр трехзначного числа кратна 7, само число также делится на 7. Найдите все такие числа.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.11.2011, 20:13
Ответы с готовыми решениями:

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

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

Произведение цифр трехзначного числа кратно 11, само число также делится на 11. Найти количество таких чисел
Здравствуйте. Буду благодарен, если поможете с решением задачи. Произведение цифр трехзначного...

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

4
4639 / 3392 / 360
Регистрация: 11.11.2010
Сообщений: 6,202
Записей в блоге: 2
16.11.2011, 20:51 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var a,b,c,d,i,s:integer;
begin
for i:=100 to 999 do
begin
a:=i div 100;
b:=i mod 10;
c:=i mod 100;
d:=c div 10;
s:=a+b+d;
if (s mod 7=0) and (i mod 7=0) then
write(i,' ');
end;
end.
0
Эксперт С++
7170 / 3228 / 77
Регистрация: 17.06.2009
Сообщений: 14,166
16.11.2011, 20:53 3
Проще и быстрее три цикла по отдельным цифрам сделать
0
0 / 0 / 2
Регистрация: 03.11.2012
Сообщений: 101
11.11.2014, 20:41 4
Может кто-то объяснить что происходит в этих строках кода? Никак разобраться не могу.

Pascal
1
2
3
4
5
a:=i div 100;
b:=i mod 10;
c:=i mod 100;
d:=c div 10;
s:=a+b+d;
0
Модератор
60563 / 45560 / 31444
Регистрация: 18.05.2008
Сообщений: 109,506
11.11.2014, 20:49 5
Проще так
Pascal
1
2
3
4
a:=i div 100;//первая цифра слева
b:=i div 10 mod 10;//средняя цифра
c:=i mod 10;//правая цифра
s:=a+b+c;//сумма цифр
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.11.2014, 20:49

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Сумма цифр трехзначного числа кратна 7. Найдите все такие числа
1)Сумма цифр трехзначного числа кратна 7. Найдите все такие числа. Помогите решить последние...

Найти все 3-х значные числа, такие, что сумма цифр равна А, а само число делится на В
1. Найти все 3-х значные числа, такие, что сумма цифр равна А, а само число делится на В (А и В...

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

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


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

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

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