3 / 3 / 0
Регистрация: 19.09.2014
Сообщений: 101
1

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

15.03.2015, 17:28. Показов 2642. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
По введенному целому числу M распечатать все трехзначные десятичные числа , сумма цифр которых равна M . Подсчитать также количество таких чисел или сообщить о том , что их нет .
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.03.2015, 17:28
Ответы с готовыми решениями:

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

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

Получить все 3х значные десятичные числа,сумма цифр которых равна заданному числу.
Вот тут у меня ни как не получается сделать одну задачку :( что то не так делаю :( Помогите...

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

2
Модератор
9908 / 5265 / 3319
Регистрация: 17.08.2012
Сообщений: 16,097
16.03.2015, 02:13 2
Лучший ответ Сообщение было отмечено EwaMayer как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var i, m, k: integer;
begin
  write('m = ');
  readln(m);
  if (m < 1) or (m > 27)
    then writeln('Трёхзначных чисел с такой суммой цифр нет.')
    else begin
      k := 0;
      writeln('Трёхзначные числа с суммой цифр = ', m, ':');
      for i := 100 to 999 do
        if i div 100 + i div 10 mod 10 + i mod 10 = m
          then begin
            write(i:4);
            inc(k)
          end;
      writeln;
      writeln('Количество чисел: ', k)
    end;
  readln
end.
0
5084 / 2655 / 2350
Регистрация: 10.12.2014
Сообщений: 10,035
16.03.2015, 05:24 3
Без операций деления:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  M, K, a, b, c : Integer;
begin
  Write('M = '); ReadLn(M);
  K := 0;
  for a := 1 to 9 do
    for b := 0 to 9 do
      for c := 0 to 9 do
        if a+b+c = M then
          begin
            Write(#32, a, b, c);
            Inc(K);
          end;
  if K = 0 then
    WriteLn('Нет таких чисел.')
  else
    WriteLn('Количество чисел: ', K);
end.
0
16.03.2015, 05:24
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.03.2015, 05:24
Помогаю со студенческими работами здесь

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

Вывести на печать все трёхзначные числа, сумма цифр которых равна заданному числу N (While)
Вывести на печать все трёхзначные числа, сумма цифр которых равна заданному числу N

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

Найти все трёхзначные натуральные числа, сумма цифр которых равна заданному числу N
Помогите, пожалуйста, решить задачу...Третий час бьюсь. Вот более полный текст: Вот код,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru