Как копировать ответ ?! Опции

[Lagovas]

Народ, мне надо было подсчитать всевозможные комбинации 4 чисел которые могут быть 1-9, мне надо их скопировать, не знаю как это сделать ?! Подскажите плиз. Не у кого спросить. Если есть такая тема, киньте ссылку плиз, я искал. реально не нашел. Заранее благодарен.

Сообщение отредактировано: Lagovas - 23.10.2008 23:29

[Lagovas]

var a1,a2,a3,a4:integer;
var f:text;
begin 
assign(f,'result.txt');
rewrite(f);
close(f);
for a1:=1 to 4 do
for a2:=1 to 9 do
for a3:=1 to 9 do
for a4:=1 to 9 do
writeln(f,a1,a2,a3,a4);
end.

Правильно ?! Я так сделал, пишет ошибку Error 105: File not open for output. Что не так ?!

[Lapp]

пишет ошибку Error 105: File not open for output. Что не так ?!

Естественно. Ты открыл файл (rewrite(f)), а потом сразу его закрыл (close(f)), и только потом в него собрался писать. Ты когда хочешь написать в тетрадь, как делаешь? Открываешь ее, закрываешь, а потом пишешь? да? Нормальные люди открывают, пишут и закрывают.
Еще раз перечитай пост №11. В нем ВСЕ написано.

P.S.
Ты английский хоть немного знаешь? На всякий случай привожу перевод английских слов, которые тут выступают как названия процедур:
assign - приписать (в данном случае - приписать название к файловой переменной);
rewrite - переписать (как бы заново начать писать, то есть открыть для записи);
write - писать, записывать (данные в файл);
close - закрыть.