Question

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

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

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.