Олимпиадная задача: про билеты. Опции

[AND]

Думаю, всем известная задача про счастливые 6-значные билеты. Занимаюсь паскалем пару дней) так что делел на основе "имеющихся знаний". Вроде как сделал, да только 1 пункт не знаю как сделать - размещать ответы в 2 столбика + можно ли что бы они были ВСЕ? Желатьно сделать простыми средствами.

PROGRAM p;
VAR
pr1, pr2, i, n1, n2, n : longint;
BEGIN
n:=0;
Write('Ot... ');
Readln(pr1);
Write('Do... ');
Readln(pr2);
while (pr1=pr2) or (pr1>pr2) or (pr1<0)
do Write('Error!!!');

for i:=pr1 to pr2 do
begin
n1:=(i div 1000);
n2:=(i mod 1000);
if
(n1 div 10)-(n1 div 100)*9+(n1 mod 10)=
(n2 div 10)-(n2 div 100)*9+(n2 mod 10)
then
begin
Writeln(i);
n:=n+1
end;
end;
writeln(n);
read(n)
end.

Сообщение отредактировано: AND - 1.10.2008 17:18

[volvo]

размещать ответы в 2 столбика

довольно просто:

if
  (n1 div 10)-(n1 div 100)*9+(n1 mod 10) =
  (n2 div 10)-(n2 div 100)*9+(n2 mod 10)
then begin
  Write(i:10); { <-- изменить здесь }
  if n mod 2 = 0 then writeln; { <--- и добавить вот эту строку }
  n:=n+1
end;

+ можно ли что бы они были ВСЕ?

Все на экране одновременно? Ну, вот смотри: ввел я от 111111 до 222222, получил список из 5802 шестизначных чисел. Это получается 34812 символов... Всего на одну строку текстового экрана помещается 80 символов. Простое арифметическое действие показывает, что даже если не печатать пробелы между числами, на это потребуется 435 строк... А у тебя в наличии всего 25 (или 50 - в лучшем случае).

Выводи список в файл.

Сообщение отредактировано: volvo - 1.10.2008 21:38