Найдите количество пятизначных чисел цифровая запись которых в десятичной системе счисления содержит хотя бы один фрагмент 13

Question

Информатика

Ануся

1 апреля, 05:30

Найдите количество пятизначных чисел цифровая запись которых в десятичной системе счисления содержит хотя бы один фрагмент 13

+1

Ответы (1)

Знаете ответ на вопрос?

Ванюра · Answer 1

Ответ: 3700.

Программа (PascalABC Net) :

var i, j, s, x: integer;

begin

for i: = 10000 to 99999 do begin

x:=i;

for j: = 1 to 4 do begin

if (x mod 10 = 3) and ((x mod 100) div 10 = 1) then s: = s + 1;

x:=x div 10;

end;

end;

writeln (s) ;

end.