Question

Написать программу в Паскале, которая вычислит все двузначные числа,сумма цифр которых равна 12. Только , как можно проще. Алгоритм вычисления пожалуйста пришлите.

Answer 1

Var
      a,a1,a2:integer;
Begin a:=10;
 Write('Двузначные числа, сумма цифр которого равна 12: ');
 while a<100 do
    begin
     a1:=a mod 10;
    a2:=a div 10;
      if (a1+a2)=12 then write(a,', ');
         a:=a+1;
    end;
End.

Answer 2

пояснить действия?

Answer 3

Да

Answer 4

Хотя, нет не надо

Answer 5

ок, я упростил программу. Убрал не нужную переменную

Answer 6

Спасибо