01.02.2008, 15:08
общий
это ответ
Здравствуйте, Тихоненко В.Б.!
var
i,n: integer;
begin
read(n);
for i:=100 to 999 do begin
if ((i div 100)+((i div 10) mod 10)+(i mod 10<font color=red><strike>0</strike></font>))=n then writeln(i);
end;
end.<p><fieldset style=‘background-color:#EFEFEF; width:80%; border:#777777 1px solid; padding:10px;‘ class=fieldset><font color=#777777><i>Исправлена ошибка в коде.</i>
-----
</font><font color=#777777 size=1><b>• Отредактировал: <a href=http://rusfaq.ru/info/user/31795 target=_blank>Зенченко Константин Николаевич</a></b> (Профессионал)
<b>• Дата редактирования:</b> 01.02.2008, 15:55</font></fieldset>