Question

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

Answer 1

var
i,k,m,n:Integer;
Begin
 for i:=10 to 99 do
  begin
   m:=i mod 10;
   n:=i div 10;
   if (n-m=3) then k:=k+1;
  end;
 Writeln(k);
end.