Написать на паскале: Из чисел от 10 до 99 вывести те, сумма цифр которых равна s (s>0; s<18) Cрочно!

Question

Информатика

Денница

9 мая, 02:28

Написать на паскале: Из чисел от 10 до 99 вывести те, сумма цифр которых равна s (s>0; s<18) Cрочно!

+1

Ответы (1)

Знаете ответ на вопрос?

Ануша · Answer 1

Var i, s:integer;

begin

write ('s = ') ; readln (s) ;

for i:=10 to 99 do

if (i div 10) + (i mod 10) = s then write (i,' ') ;

writeln;

end.

Пример:

s = 10

19 28 37 46 55 64 73 82 91