Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Mr.Spock
1 / 1 / 0
Регистрация: 31.03.2010
Сообщений: 32
1

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

31.03.2010, 23:59. Просмотров 1030. Ответов 1
Метки нет (Все метки)

Люди! Помогите! Есть такая задача:
"Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых есть число однозначное. Проверку, является ли сумма цифр числа однозначным числом, осуществить с помощью функции пользователя".
я уже не соображаю...
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.03.2010, 23:59
Ответы с готовыми решениями:

Дан натуральный отрезок чисел [A,B].Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х.
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр которых больше заданного...

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы делителей которых больше заданного чи
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы делителей которых больше...

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

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

Найти все четырёхзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27.
Помогите решить ещё одну задачку :) Найти все четырёхзначные числа, у которых сумма крайних цифр...

1
Puporev
Модератор
58931 / 44609 / 30787
Регистрация: 18.05.2008
Сообщений: 106,890
01.04.2010, 09:11 2
Лучший ответ Сообщение было отмечено Mr.Spock как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
function One(n:longint):boolean;
var s:byte;
    m:longint;
begin
m:=n;
s:=0;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10;
 end;
if s<10 then One:=true else One:=false;
end;
var a,b,i:longint;
begin
clrscr;
repeat
writeln('Введите интервал натуральных чисел b>a');
readln(a,b);
until b>a;
writeln('Числа, сумма цифр которых однозначное число:');
for i:=a to b do
if One(i) then write(i,' ');
readln
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.04.2010, 09:11

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

Найти все натуральные числа, меньше n, квадрат суммы цифр которых равен m
Помогите Даны натуральные числа n, m. найти все натуральные числа, меньше n, квадрат суммы цифр...

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

Найти суммы цифр каждого числа без учета повторяющихся цифр. Повторяющиеся суммы удалить.
Найти суммы цифр каждого числа без учета повторяющихся цифр. Повторяющиеся суммы удалить.


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

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

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