Задача Паскаль АБС, Напишите программу, выводящую все трехзначные номера (от 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.

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

[IUnknown]

//чтобы на всех Паскалях шло

- проще всего сделать так:

      if n=w then
      begin
         if a = 0 then write(0); // Первая цифра - 0? Выводим этот 0...
         if (a + b = 0) then write(0); // Первая И ВТОРАЯ - нули: добавляем еще один 0
         writeln(i,' '); // А потом уже выводим само число...
      end;

[Lapp]

- проще всего сделать так:

      if n=w then
      begin
         if a = 0 then write(0); // Первая цифра - 0? Выводим этот 0...
         if (a + b = 0) then write(0); // Первая И ВТОРАЯ - нули: добавляем еще один 0
         writeln(i,' '); // А потом уже выводим само число...
      end;

IUnknown, что-то это не похоже на тебя.. Не выспался? ))
Почему не так:

      WriteLn(a,b,c);

- ?

2 liverpool85:
Не забывай инициализировать переменные - я имею в виду k в данном случае. Кстати, лучше ее сделать типа boolean, раз уж на используется для проверки.
Переменная w - абсолютно лишняя, сумму можно находить прямо в if.
Все числовые параметры задавай константами. Например:

const
  n1= 1;
  n2= 999;
...
  for i:=n1 to n2 do ...

И совет: по возможности избегай слова "таких" в выводе результатов. Пиши полностью, не ленись:

WriteLn('Чисел с суммой цифр ',n,' в диапазоне от ',n1,' до ',n2,' не найдено');

Иначе ты запустишь эту прогу через неделю, и ни фига не поймешь, что это она такое сделала )). И твой преп тебе скажет спасибо - у него много студентов, много групп, много вариантов. Ему проще, когда видно, что делает прога.

[liverpool85]

Спасибо за дельные советы!!
Подправил малость

const
n1=1;
n2=999;
var
   n, i, a, b, c: integer;
   s: string;
   k: boolean;
begin
   writeln('Vvedite chislo ot 0 do 27: ');
   readln(n);
   
   for i:=n1 to n2 do
   begin
      a:=i div 100;
      b:=i div 10 mod 10;
      c:=i mod 10;
      if n=a+b+c then
      begin
      k:=true;
      str(i,s);
      if i<10 then s:='00'+s
      else if i in [10..99] then s:='0'+s;
      writeln(s:4,' ');
   end;
   end;
   if k=false then write ('Chisel s summoj zifr ',n,' v diapazone ot ',n1,' do ',n2,' net');
end.

[Lapp]

Подправил малость

Однако, приятно, когда советы не игнорируются! Тогда пойдем до конца )).
Я тоже подправил, смотри комментарии по тексту.

const
   n1=1;   { сдвигай! }
   n2=999;
var
   n, i, a, b, c: integer;
   { s не нужна, убери
   s: string; }
   k: boolean;
begin
   { я бы убрал диапазон..  ну, выдаст, что нет таких - что такого?  это тоже результат }
   { вставил "целое" }
   writeln('Vvedite celoe chislo ot 0 do 27: ');
   readln(n);
   k:= false;  { обязательно инициализируй! не полагайся на компилятор }
   for i:=n1 to n2 do begin
      a:= i div 100;
      b:= i div 10 mod 10;
      c:= i mod 10;
      if n=a+b+c then begin   { привыкай ставить begin в конце строки, если преп не против )) }
         k:=true;    { после begin - сдвигать, однозначно}
         WriteLn(a,b,c)  { не нужно никаких ухищрений, у тебя же уже есть цифры (см. мой коммент на пост IUnknown) }
      end;  { end стоит точно в той позиции, где начинается строка с begin }
   end;
   { не k=false, а not k } 
   if not k then write ('Chisel s summoj zifr ',n,' v diapazone ot ',n1,' do ',n2,' net');
end.