1. Среди трехзначных чисел сколько таких, что сумма крайних в ...

Дмитрий

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.