Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Заменить в строке одно сочетание букв на другое Написать программу, которая меняет в строке одно сочетание букв на другое. я решила так: Program Stroka; uses crt; Var s, s1, s2:string; n: integer; Begin WriteLn('введите исходное слово:... https://www.cyberforum.ru/ pascalabc/ thread601104.html Вывести числа разность квадратов 1 и 3 цифры равна 2 цифре Pascal ABC
Добрый вечер. Помогите пожалуйста решить задачку: вывести на экран такие 3х-значные числа, у которых разность квадратов 1 и 3 цифры равна 2 цифре
Pascal ABC Нарисовать домик, из трубы которого идет дым https://www.cyberforum.ru/ pascalabc/ thread601035.html
Нарисовать домик из трубы которого идет дым
Pascal ABC Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр https://www.cyberforum.ru/ pascalabc/ thread601030.html
Pascal ABC ИНОГДА выскакивает ошибка! В чем причина?
Добрый вечер, уважаемые, помогите, пожалуйста, разобраться с причиной ИНОГДА выскакивающей ошибки (Ошибка ввода/вывода 102: для файловой переменной не выполнена процедура Assign (Sort.pas, строка...
Pascal ABC Преобразовать массив по правилу Дано: массивы W(N,M), X(N). Преобразовать массив W следующим образом: положительные элементы итой строки массива W умножить на Xi, i =1,2,..N. https://www.cyberforum.ru/ pascalabc/ thread600972.html
Pascal ABC Одномерный массив. Найти среднее арифметическое элементов, равных своим индексам https://www.cyberforum.ru/ pascalabc/ thread600971.html
1)дан одномерный массив целых чисел.найти и вывести на экран среднее арифметическое элементов этого массива равных своим индексам
Pascal ABC В столовой предлагается N комплексных обедов, состоящих из Q блюд
Помогите решить, или скиньте какую нить подобную прогу. В столовой предлагается N комплексных обедов,состоящих из Q блюд. Известны стоимость и калорийность каждого блюда. Сколько стоят самый...
Pascal ABC Даны два числа. Написать программу, которая меньшее из них возводит в квадрат, а большее оставляет без изменения Даны два числа. Написать программу, которая меньшее из них возводит в квадрат, а большее оставляет без изменения. Если числа равны, то они не должны быть изменены. https://www.cyberforum.ru/ pascalabc/ thread600946.html Pascal ABC Дан вещественный вектор X (x1, x2, …, xN), где N – целое положительное число https://www.cyberforum.ru/ pascalabc/ thread600895.html
Дан вещественный вектор X (x1, x2, …, xN), где N – целое положительное число. Переменной r присвоить значение, равное сумме компонент вектора, принадлежащих отрезку , переменной k – значение, равное...
Pascal ABC Нужна небольшая программа по спискам
ребят не шарю помогите
Pascal ABC Создать файл целых чисел. Определить минимальное и среднее арифметическое чисел, лежащих за минимальным значением https://www.cyberforum.ru/ pascalabc/ thread600761.html
Создать файл целых чисел. Определить минимальное значение в файле. Затем определить среднее арифметическое чисел, лежащих за минимальным значением и минимальное значение в файле заменить на это...
Лучи добра
173 / 171 / 191
Регистрация: 08.06.2012
Сообщений: 292
09.06.2012, 02:35 0

Из чисел от 100 до 999 вывести те, сумма цифр которых числу N, введенному с клавиатуры - Pascal ABC - Ответ 3143935

09.06.2012, 02:35. Показов 5862. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Inqu1sItor как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program z;
var n,s,a,a1,i:integer;
begin
     writeln('Введите число N');
     readln(n);
     writeln('Трехзначные числа, сумма цифр которых равна числу N');
     for i:=100 to 999 do
     begin
     s:=0;
     a:=i;
     while a<>0 do
           begin
                a1:=a mod 10;
                s:=s+a1;
                a1:=a div 10;
                a:=a1;
           end;
     if s=n
        then
            writeln(i);
     end;
end.


Вернуться к обсуждению:
Из чисел от 100 до 999 вывести те, сумма цифр которых числу N, введенному с клавиатуры Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.06.2012, 02:35
Готовые ответы и решения:

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

Вывести все трехзначные числа, для которых сумма цифр равна введённому числу
Решите пожалуйста срочно задачу!

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

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.06.2012, 02:35

Вывести на экран все числа от 100 до 10000, сумма цифр которых равна заданному числу
Нужна помощь в решении задач. Циклы 1. Вывести на экран все числа от 100 до 10000, сумма цифр...

Среди всех n-значных чисел указать те, сумма цифр которых равна заданному числу k. (k и n вводить с клавиатуры.)
Помогите написать программу. Срочно))):)

Определить: Кратно ли сумма цифр заданного 4-хзначного числа числу b, введенному с клавиатуры...
Дано четырехзначное число. Определить: Кратно ли сумма его цифр числу b, введенному с...

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

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