Question

Дан ряд четырехзначных натуральных чисел. Из него вычеркивают числа, в которых сумма двух первых цифр равна сумме двух последних. Составить алгоритм и описать его на Паскале, позволяющий по заданному номеру N вывести соответствующее ему число в новой последовательности.

Answer 1

var n, cnt, i : integer;
begin
  readln(n);
  cnt := 0;
  i := 1000;
  while cnt < n do begin
    if i mod 10 + (i div 10) mod 10 <> (i div 100) mod 10 + i div 1000 then
      cnt := cnt + 1;
    i := i + 1;
  end;
  writeln(i - 1);
end.