1. Информатика
  2. Среди всех 3-значных чисел укажите

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

ник5047 ник5047    3   11.06.2019 03:40    0

Ответы
fullwalkgroundEger fullwalkgroundEger  09.07.2020 08:54
Var
  a, k: integer;

begin
  readln(k);
  for a := 100 to 999 do
    if ((a div 100) + (a mod 100 div 10) + (a mod 10) = k) then
      writeln(a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
swetik101 swetik101  30.07.2019 18:00
Вкорзине 4 яблока и 3 апельсина.какое наименьшее число фруктов нужно вынуть из корзины не глядя чтобы среди них было 2апельсина?...
debilNemnogo debilNemnogo  01.09.2019 11:40
Сколько битов информации содержится в сообщении четверть килобайтов...
PavelSol PavelSol  16.10.2021 13:48
, весь вопрос расписан на снимке...
dimaprokopovewp06mw2 dimaprokopovewp06mw2  16.10.2021 13:47
Запишите развёрнутую форму числа 560,103....
ron22218a ron22218a  28.02.2021 08:55
Необходимо суммировать все чётные целые числа в диапазоне от 0 до n , который введёт пользователь с клавиатуры. С++...
прииииииип прииииииип  28.02.2021 08:51
Какие задачи решают в программе команды input и print ​...
АлинкаГал АлинкаГал  12.09.2019 00:30
Информационное сообщение объёмом 450 битов состоит з 150 символов.каков информационный вес каждого символа этого сообщения? решение: i=450 k=150 n-? решать по формулам:...
arzumirzeyeva arzumirzeyeva  12.09.2019 00:30
Сформулировать условие , которую решает данная программа: program pr2 var c: integer; begin for c: =10 to 99 do if c mod 2=0 then write(c,` `); end....
katyspdhh katyspdhh  12.09.2019 00:30
Напишите программу, которая находит сумму трех целых чисел,введенных с клавиатуры. например,при вводе чисел 4,5 и 7 мы должны получить ответ 4+5+7=16. ....
dan4ik105217 dan4ik105217  12.09.2019 00:30
Решить в pascal 1.скорость первого автомобиля v1 км/час, второго – v2 км/час. расстояние между ними s км. какое расстояние между ними будет через t часов, если автомобили...

Популярные вопросы