Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Выборка из простенькой бд http://www.cyberforum.ru/cpp-beginners/thread672295.html
Добрый день! Собственно в 2 файла заливаются записи, имея запрос с m_strSEARCH надо вытащить остальные с условием..вроде ок, но почему то в последней части вываливается только первая из нужных ( С...
C++ Перегрузка операторов с использованием функций-членов и укозателя *this Из учебника я узнал, то что функция перегрузки операторов вызывается когда компилятор встретит выражение - c = a + b; затем b - передается как аргумент (явно), a - передается как аргумент (не явно)... http://www.cyberforum.ru/cpp-beginners/thread672259.html
C++ Перевести код видеоплеера с C#
Народ, если есть кто шарит и в С# И в C++ Подгоните этот код под C++ Нада! using System; using System.Windows.Forms;-это стандартные библиотеки(нетрогайте) using...
длина вектора C++
Переменной R присвоить значение 1, если длина вектора А больше длины вектора В, и значение 0 в противном случае A, B Вычисление длины вектора оформить в виде функции.
C++ Найти среднее арифметическое положительных элементов каждой строки матрицы и вывести результаты в виде столбца. http://www.cyberforum.ru/cpp-beginners/thread672241.html
A Найти среднее арифметическое положительных элементов каждой строки матрицы и вывести результаты в виде столбца.
C++ Определить сумму элементов в тех столбцах целочисленной матрицы, которые не содержат отрицательных элементов Определить: 1.сумму элементов в тех столбцах, которые не содержат отрицательных элементов; 2.минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали матрицы. P.S.... подробнее

Показать сообщение отдельно
LONSDALE12
0 / 0 / 0
Регистрация: 10.10.2012
Сообщений: 9

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

16.10.2012, 12:10. Просмотров 1683. Ответов 15
Метки (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var m, n, s, i: integer;
begin
 write('Введите m (m<27): ');
 readln(m);
 for i:= 100 to 999 do
  begin
   s:= 0;
   n:= i;
   while n>0 do
    begin
     s:= s + n mod 10;
     n:= n div 10;
    end;
   if s=m
    then write(i: 4);
  end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru