Пожалуйста, помогите составить программу в паскале для данной задачи: Среди всех двузначных чисел найте те, сумма цифр которых равна n (0 меньше n≤18) и количество этих чисел.
Пожалуйста, помогите составить программу в паскале для данной задачи:
Среди всех двузначных чисел найте те, сумма цифр которых равна n (0
Гость
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы