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

Question

Фома

30 сентября, 08:20

+1

Ответы (1)

Знаете ответ?

Климентий · 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.