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

Question

Людмилыч

16 сентября, 21:21

+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.