Написать программу в Паскале abc. вывести на экран все двузначные числа, сумма цифр которых равна заданному числу n
Var
i,j,n:integer;
begin
read(n);
for i:=1 to 9 do
for j:=0 to 9 do
if i+j=n then
Writeln(i,j , = , n);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var
i,j,n:integer;
begin
read(n);
for i:=1 to 9 do
for j:=0 to 9 do
if i+j=n then
Writeln(i,j , = , n);
end.