Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
trik
0 / 0 / 0
Регистрация: 16.10.2013
Сообщений: 8
1

Получить все трехзначные натуральные числа, сумма цифр которых равна n

18.10.2013, 20:45. Просмотров 1282. Ответов 6
Метки нет (Все метки)

дано натуральное число <=27 найти все трёхзначные числа сумма цифр которых равна n не используя mod и div помогите пожалуйста в Pascal abc

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

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.10.2013, 20:45
Ответы с готовыми решениями:

Получить все трехзначные натуральные числа, сумма цифр которых равна m
var m, n, s, i: integer; begin write('Введите m (m&lt;27): '); readln(m); ...

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

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

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

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

6
monolit
188 / 187 / 46
Регистрация: 24.03.2011
Сообщений: 670
Завершенные тесты: 1
18.10.2013, 21:42 2
> Форум программистов > Форум C++ > Форум С++ для начинающих
Вы походу веткой ошиблись...
0
ValeryS
Модератор
7372 / 5573 / 707
Регистрация: 14.02.2011
Сообщений: 18,937
18.10.2013, 21:47 3
тупой перебор из трех циклов
C++
1
2
3
4
5
for(int i=1;i<10;i++)
 for(int j=0;j<10;j++)
   for(int k=0;k<10;k++)
      if(i+j+k==n)
          printf("%d",i*100+j*10+k);
1
DmitryM5
Love~
106 / 86 / 44
Регистрация: 27.08.2013
Сообщений: 1,150
Записей в блоге: 1
18.10.2013, 22:04 4
Цитата Сообщение от trik Посмотреть сообщение
дано натуральное число <=27 найти все трёхзначные числа сумма цифр которых равна n не используя mod и div помогите пожалуйста в Pascal abc
Вроде все работает,за алгоритм не отвечаю,давно писал на Паскале
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure IsSum(a,n:integer;var flag:boolean);
begin
var a1,a2,a3:real;
a1:=Trunc(a/100);
a2:=Trunc((a-a1*100)/10);
a3:=a-a1*100-a2*10;
if (a1+a2+a3)=n then flag:=true
else flag:=false;
end;
 
var n:integer;
var flag:boolean;
begin
writeln('Введите натуральное n<=27');
readln(n);
writeln('Трехзначные числа,сумма цифр которых равна n =: ');
for var i:=100 to 999 do
begin
IsSum(i,n,flag);
if flag then writeln(i);
end;
 
end.
Добавлено через 5 минут
Более понятный алгоритм,из поста выше)
Pascal
1
2
3
4
5
6
7
8
9
10
begin
var n:integer;
writeln('Введите натуральное n<=27 ');
readln(n);
writeln('Трехзначные числа,сумма цифр которых равна n =: ');
for var i:=1 to 9 do
for var j:=0 to 9 do
for var k:=0 to 9 do
if i+j+k=n then writeln(i,j,k);
end.
0
trik
0 / 0 / 0
Регистрация: 16.10.2013
Сообщений: 8
18.10.2013, 22:13  [ТС] 5
а можно это как то проще написать без процедур потому что процедуры по идее мы ещё не проходили
0
ValeryS
Модератор
7372 / 5573 / 707
Регистрация: 14.02.2011
Сообщений: 18,937
18.10.2013, 22:17 6
Цитата Сообщение от trik Посмотреть сообщение
а можно это как то проще написать без процедур потому что процедуры
а второй вариант тебя чем не устраивает?
без процедур
0
trik
0 / 0 / 0
Регистрация: 16.10.2013
Сообщений: 8
18.10.2013, 22:20  [ТС] 7
а второй вариант я что то не попробовал спасибо большое помогли)))
0
18.10.2013, 22:20
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.10.2013, 22:20

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

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

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


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

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

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