tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вивести в стовпчиним
Вивести в стовпчиним всі чотиризначні числа сума цифр якого дорівнює чисалу яке введене з клаві!
еьпа
2 15.09.2019 05:50
2
Ответы
Arina1666
07.10.2020 16:20
Var a, b: real;
begin
read(a);
while a <=9999 do begin
read(b);
if (b div 1000 <> 0) and (b div 1000 + b div 100 mod 100 + b div 10 mod 10 + b mod 10 = a) then begin
writeln(b);
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Поля34232
21.04.2020 13:47
Здравствуй можете написать конспект по информатике стр...
lnatahozqc8g
04.10.2019 03:01
:программа, внутри которой находится вирус....
saule844007
04.10.2019 03:01
Написать программу на с#. дана матрица размера m*n. найти количество строк и столбцов, которые монотонно возрастают и убывают....
Kasha26336
23.02.2021 15:39
перевести с C++ на Python #include unsigned int PRNG() { // Наше стартовое число - 4 541 static unsigned int seed = 4541; // Берем стартовое число и, с его генерируем новое значение....
tattysg
23.02.2021 15:36
Нужно сделать задание по информатике. Язык программирования питон.задание номер 4....
Mixail1510
17.12.2019 15:06
Какие из характеристик не относятся к векторной графике...
Скрытый21
17.12.2019 14:59
Какое множество соответствует данной диаграмме венна....
Малика20091
09.07.2019 23:20
1)составьте программу,которая 7 раз выводит на экран фразу я учусь в гимназии 12 2)составьте программу,которая выводит на экран 5 нечетных натуральных чисел начиная с 15 3)составьте...
Flora999
09.07.2019 23:20
Укажите вид алгоритма если время на часах 11 вечера то идти спать иначе читать книгу...
yuliyаyevtereva
09.07.2019 23:20
Назовем время счастливым,если оно на мониторе электронных часов читается одинаково как слева направо,так и справа налево.часы показывают 20: 02. сколько часов и минут с момента предыдущего...
Популярные вопросы
Написать о том мгновении в жизни природы,которое тебе запомнилось....
2
Почему внедрение некоторых видов в другие места обитания может вызвать резкое...
2
Як ти мрієш провести літні канікули текст розповідь іть дуже потрібно на дпа тільки...
2
Составте предложение на фразеологизм: что душе угодно,хоть бы что,ни при чём,сколько...
3
Радиус основания конуса равен 4√5см, а расстояние от центра его основания до образующей...
3
Вгараже 9 автомобилей грузоподъёмностью 8.3 тонны и 6 автомобилей грузоподъёмностью...
2
Из двух городов на расстояние 467 1\2км,одновременно навстречу друг другу вышили...
2
Перечислите не менее 5 функций кровеносной системы человека...
3
Cos(пиx/3)=1 решить уравнение. найти наибольший отрицательный корень...
1
Составить 10 слов на безударные гласные...
1
begin
read(a);
while a <=9999 do begin
read(b);
if (b div 1000 <> 0) and (b div 1000 + b div 100 mod 100 + b div 10 mod 10 + b mod 10 = a) then begin
writeln(b);
end;
end.