Подсчитать сумму двузначных чисел, сумма цифр которых не превышает 10. program pr10; var n, a, b, k: integer; begin k: =0; for n: =10 to 99 do begin a: = n div 10; b: =n mod 10 начало в pascal

Program Pr10;
var
  i, j, s: integer;
begin
 s := 0;
for i := 1 to 9 do
   for j := 0 to 9 do
     if (i + j <= 10) then
        inc(s, i  * 10 + j);
writeln(s);
end.