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

Question

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

Answer 1

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.

Answer 2

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

 

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.