Среди двухзначных чисел указать те, сумма цифр которых равна N - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Задача. Среди всех двузначных чисел указать те, сумма цифр которых равна заданному числу N. Помогите написать.

Решение задачи: «Среди двухзначных чисел указать те, сумма цифр которых равна N»

textual
Листинг программы
program pr;
var
i,n:integer;
begin
writeln('Введите число');
readln(n);
for i:=10 to 99 do 
if ((i div 10) mod 10)+(i mod 10)=n then
writeln('Число сумма цифр которого равна заданному числу: ',i);
end.

Оцени полезность:

14   голосов , оценка 3.786 из 5
Похожие ответы