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

Question

Ленуся

24 июня, 12:16

+3

Ответы (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.