среда, 12 октября 2011 г.

program pov;
uses crt;
var x,k, s: integer;
begin
clrscr;
writeln ('s='); readln (s);
for x:=100 to 999 do if x mod 10+(x div 10) mod 10+x div 100 =s then
begin
writeln (x);
 k:=k+1;

 end;
 writeln ('kolvo=',k);
readkey;
 end.