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

program pov;
uses crt;
var x, 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 =9 then
writeln (x);
readkey; end.