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

{ я бы убрал диапазон.. ну, выдаст, что нет таких - что такого? это тоже результат }

Таких не просто "нет", их "быть не может", так что я бы как раз и добавил диапазон:

var
   n : 0 .. 27; // или 1 .. 27

, и если введено не то значение - пусть программа сразу вылетает (или обрабатывать ошибку до тех пор, пока не будет введено правильное значение, попадающее в интервал).

var
   n : 0 .. 27;
   Ok : boolean;
begin
   writeln('Введите число от 0 до 27:');
   repeat
      Ok := true;
      try
         readln(n);
      except
         writeln('Нет, число должно быть 0 .. 27');
         Ok := false;
      end;
   until Ok;

   // Всё, число введено, едем дальше...
   writeln('n = ', n);
end.

Правда, позволяет ли это PascalABC - сказать сложно (не помню, а проверять негде). Но всегда можно заставить вводить пользователя значение из заданного интервала. Хотя бы даже и так:

var n : integer;
begin
   repeat
      {$I-} Readln(n); {$I+}
   until (IOResult = 0) and (n > 0) and (n <= 27);
end.

P.S.
Ну, или совсем просто: не делая никаких проверок при вводе - сразу же проверять введенное число на 1 .. 27. Если принадлежит этому интервалу - то что-то можно начинать вычислять. Иначе сразу выдавать сообщение, что, мол, "при таких входных данных - какие вы хотите получить результаты? Вот, вы их и получили. Ничего нет и быть не может"

Сообщение отредактировано: IUnknown - 10.09.2011 9:21

[-Lapp-]

Таких не просто "нет", их "быть не может", так что я бы как раз и добавил диапазон:

Немного странно мне это.. 27 - это же жесткая привязка к диапазону. А завтра преп скажет: сделай мне для диапазона 0000 - 9999. Менять 27 на 36? Хорошо, а если скажет от 015 до 456? Если 27 появляется в программе и зависит от диапазона - оно должно вычисляться по диапазону. А как вычислять для диапазона 03 - 12? Да вот так и вычислять - прогнать через цикл..

Предложи способ вычисления диапазона ввода для произвольного диапазона чисел - отстану .