Задача Паскаль АБС, Напишите программу, выводящую все трехзначные номера (от 001 до 999), Опции

[liverpool85]

Здравствуйте! Напишите программу, выводящую все трехзначные номера (от 001 до
999), сумма цифр которых равна N (значение N вводит пользователь).

Мой код-

var i,a,b,c,w:integer;
n,p:string;
begin
writeln('Vvedite chislo ot 0 do 999: ');
readln(n);
begin
for i:=1 to 999 do
  a:=i div 100;
  b:=i div 10 mod 10;
  c:=i mod 10;
  w:=a+b+c;
  p:=IntToStr(w);
  if p=n then writeln(p,' ');
end;
end.

И еще один -

uses crt;
var n,i,a,b,c,w,k:integer;
    s:string;
begin
write('Сумма цифр n=');
readln(n);
writeln('Номера с суммой цифр, равной ',n);
k:=0;
for i:=1 to 999 do
 begin
  a:=i div 100;
  b:=i div 10 mod 10;
  c:=i mod 10;
  w:=a+b+c;
  if w=n then
   begin
    k:=1;
    str(i,s);//чтобы на всех Паскалях шло
    //s:=IntToStr(i); //для АВС
    if i<10 then s:='00'+s
    else if i in [10..99] then s:='0'+s;
    write(s:4);
   end;
 end;
if k=0 then write('Таких номеров нет')
end.

Почему то не выводит все номера)))

[volvo877]

лучше 1 раз попробовать, чем 10 раз спросить ))

Пробовали. Вернулись к варианту исходников VCL, то есть

if cond then
begin
   expr1;
end
else
begin
   expr2;
end;

лишний раз переносить бегин не надо.
А если его переносить, то будут отвратительные заборы из ключевых слов, долгое смотрение на которые может привести к эпилепсии.

Лично мне гораздо проще читать исходники той же VCL, чем FPC-шные (и Лазарусовские, кстати) исходники, где begin-ы в основном не переносятся