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

1) program z1; uses crt; var a,b,c,d,e,f,k,i: integer; beginfor i: =100 to 999 do begina: =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.