Сколько существуют двузначных чисел сумма цифр которых = 7 .Запишите на языке программирования

Издеваться изволите? Сварите вашего учителя заживо (это не призыв к насилию, а едкое замечание!), если он предлагает такие задачи.

Pascal:

var i, n: integer;

begin

  n:=0;

  for i:=10 to 99 do

     if ((i mod 10)+(i div 10)=7) then inc(n);

  writeln('Otvet: ',n, 'number(s)');

  readln

end.

var n,i,i1,i2:integer;Begin    for i:= 10 to 99 do Begin        i1:=i div 10;        i2:=i mod 10;        if (i1+i2=7)then n:=n+1;    end;    writeln(n);End.