Севиля
5 год назад
Из чисел от 10 до 99 вывести те, сумма цифр которых равна N, возможны два варианта. Паскааааль
ОТВЕТЫ
Димчо
Oct 24, 2020
Var
A,N:integer;
Begin
Write('N = ');ReadLn(N);
For A:= 10 to 99 do
if A mod 10 + A div 10 = N then Write(A,' ')
End.
Пример работы программы:
N = 9
18 27 36 45 54 63 72 81 90
A,N:integer;
Begin
Write('N = ');ReadLn(N);
For A:= 10 to 99 do
if A mod 10 + A div 10 = N then Write(A,' ')
End.
Пример работы программы:
N = 9
18 27 36 45 54 63 72 81 90
168
Смежные вопросы:
