Пожалуйста, помогите составить программу в паскале для данной задачи:…

Question

Пожалуйста, помогите составить программу в паскале для данной задачи: Среди всех двузначных чисел найте те, сумма цифр которых равна n (0

Answer 1

33

besttrening

15 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить