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

Question

Информатика

Матяха

8 июля, 09:37

Написать на паскале: Из чисел от 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