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.