Пожалуйста, помогите составить программу в паскале для данной задачи:
Среди всех двузначных чисел найте те, сумма цифр которых равна n (0<n≤18) и количество этих чисел.
More Questions From This User See All
Пожалуйста, помогите составить программу в паскале для данной задачи:
Среди всех двузначных чисел найте те, сумма цифр которых равна n (0<n≤18) и количество этих чисел.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
var
i, k, n: integer;
begin
read(n);
for i := 10 to 99 do
if i mod 10 + i div 10 = n then begin
writeln(i);
k := k + 1;
end;
writeln('k = ', k);
end.