Из всех двузначных чисел...

[Joker<777>]

Из всех двухзначных чисел вывести те сумма цифр которых равна S(0<S<18).

[Grag]

Первый вариант:

j:=10;
while j<99 do
  begin
    writeln(j);
    Inc(j)
  end;

Второй вариант:

for j:=10 to 98 do
  writeln(j);

Третий вариант: (по логике задания наиболее подходящий)

Uses Crt;
Var
  j:byte;
BEGIN
  ClrScr;
  for j:=10 to 99 do
    if ((j div 10)+(j mod 10))<18
      then write(j,'  ');

[Serge_Bliznykov]

Grag +1

добавлю (чисто интуитивно - предполагаю), что, скорее всего, по условию задачи надо ввести S и потом вывести те двухзначные числа, сумма цифр которых равна S
например, так:

  Readln(S);
  for j:=10 to 99 do
    if ((j div 10)+(j mod 10))=S
      then write(j,'  ');