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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Шаблоны изменение типа http://www.cyberforum.ru/cpp-beginners/thread981174.html
Передо мной стоит такая задача: class par1; class par2; class par3; class MyClass //Основной класс {
C++ Ошибка при записи в строку Здравствуйте, подскажите, что я делаю не так? char *nameImage, *pathMessage, *pathImage; std::cout << "Введите название изображения(*.bmp)\n"; std::cin >> nameImage; http://www.cyberforum.ru/cpp-beginners/thread981172.html
C++ Определение кислотности раствора в зависимости от цвета индикатора
Составить программу определения кислотности раствора в зависимости от цвета индикатора. Например возьмём один индикатор метиловый оранжевый, он может быть трёх цветов в зависимости от среды:...
Действитетльный вектор C++
// Дан действительный вектор х . Определить и напечатать произведение //положительных компонентов вектора. #include <iostream> #include "stdafx.h" # include <math.h> #include <iomanip> #...
C++ Максимальная зарплата http://www.cyberforum.ru/cpp-beginners/thread981160.html
Добрый вечер. Помогите с задачей, пожалуйста. Вот текст задачи: Максимальная зарплата На малом предприятии работает определенное количество работников, но не менее двух – директора и...
C++ Исправте ошибки задача - Дано действительное число a. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить a8 за 3 операции. #include <iostream.h> #include <conio.h> main() { ... подробнее

Показать сообщение отдельно
DmitryM5
Love~
51 / 51 / 3
Регистрация: 27.08.2013
Сообщений: 829
Записей в блоге: 1
18.10.2013, 22:04
Цитата Сообщение от 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
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru