Информатика

Юлиания

3 декабря, 10:25

Какое число будет напечатано в результате выполнения программы:

var i, k: integer;

function f (x: integer) : integer; var m: integer;

begin

if x < 10 then f : = x

else begin

m : = f (x div 10);

if m < x mod 10 then

f : = x mod 10

else

f : = m;

end;

end;

begin

k : = 0;

for i : = 1000 to 3000 do

if f (i mod 100) = 1 then

if f (i div 100) = 3 then

k : = k + 1;

writeln (k);

end