Вопрос школьника по предмету Информатика
Вывести на экран все трехзначные натуральные числа, сумма цифр которых не превосходит заданное пользователем (введенное с клавиатуры) число.
Pascal ABC
срочно
для 8 класса функцией или процедурой
Ответ учителя по предмету Информатика
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
Похожие вопросы от пользователей
Заполните пропуски предлогами времени
1.Come … five o’clock. 2. Go there … seven. 3. The train arrives … seven thirty-two. 4. It is half … two. 5. It is a quarter … three (без четверти). 6. Leave your place … a quarter … six (без четверти). 7. He is at home … three … four.