profile
Размещено 5 лет назад по предмету Информатика от OlgaBoyko

Вывести на экран все трехзначные натуральные числа, сумма цифр которых не превосходит заданное пользователем (введенное с клавиатуры) число.
Pascal ABC
срочно
для 8 класса функцией или процедурой

  1. Ответ на вопрос
    Ответ на вопрос дан petyaGavrikov
    var s,i:integer;
    begin
    write('s = ');
    readln(s);
    for i:=100 to 999 do
     if (i div 100 + i div 10 mod 10 + i mod 10 < s)
      then write(i,' ');
    end.

    Пример:
    s = 5
    100 101 102 103 110 111 112 120 121 130 200 201 202 210 211 220 300 301 310 400
  2. Ответ на вопрос
    Ответ на вопрос дан Аккаунт удален
    9 + 9 + 9 = 27, при вводе числа, больше 27 будут выведены все трёхзначные числа.

    Procedure ABC(A:integer);
    Var i:integer;
    Begin
    For i:= 100 to 999 do
        if (i div 100)+((i div 10) mod 10)+(i mod 10)<=A then
           Write(i,' ');
    End;
    Var A:integer;
    Begin
    Write('Введите целое число: ');
    ReadLn(A);
    ABC(A)
    End.



    Пример:


    Введите целое число: 7
    100 101 102 103 104 105 106 110 111 112 113 114 115 120 121 122 123 124 130 131 132 133 140 141 142 150 151 160 200 201 202 203 204 205 210 211 212 213 214 220 221 222 223 230 231 232 240 241 250 300 301 302 303 304 310 311 312 313 320 321 322 330 331 340 400 401 402 403 410 411 412 420 421 430 500 501 502 510 511 520 600 601 610 700

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.