6) Среди всех двузначных чисел указать те, сумма цифр которых больше 15. 7) Дано...

Question

6) Среди всех двузначных чисел указать те, сумма цифр которых больше 15.
7) Дано натуральное двузначное число N. Найти и вывести все числа в интервале от 1 до N-1, у которых сумма всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, вывести слово "НЕТ".
Пример: N=44. Числа: 17,26,35.

Напишите пожалуйста решение на языке Паскаль, используя(если их надо использовать) циклы: цикл "пока" и цикл "до"

Comments

если ты не знаешь ответа, зачем ты сюда пришла?

Answer 1

Шестая задача(введёшь 15 тебе выведет)

var
i,x : integer;
begin
read(x);
for i := 10 to 99 do begin
if (i mod 10) + (i div 10) = x then
writeln(i);
end;
readln;
end.