1) program z1;
uses crt;
var a,b,c,d,e,f,k,i: integer;
begin
for i:=100 to 999 do begin
a:=i div 100;
b:=i mod 100 div 10;
c:=i mod 100 mod 10;
d:=a+c;
e:=3*c;
if d>e then innc(k);
end;
writeln(k);
end.
1) program z1;
uses crt;
var a,b,c,d,e,f,k,i: integer;
begin
for i:=100 to 999 do begin
a:=i div 100;
b:=i mod 100 div 10;
c:=i mod 100 mod 10;
d:=a+c;
e:=3*c;
if d>e then innc(k);
end;
writeln(k);
end.