Необходимо составить 2 программы. Одна программа печатает исходник второй, вторая печатает исходник первой.
Язык - пусть любой(задавалось в книге по пасу).
У кого какие идеи на этот счёт?

с Делфи все просто,а вот с Паскалем...надо думать

Код

procedure TForm1.Button1Click(Sender: TObject); begin a:=''; assignfile(input,'second.pas'); reset(input); while not(EOF(input)) do begin read(input,chet); a:=a+chet; end; closefile(input); memo1.Text:=a;

соответственно

Код

procedure TForm1.Button1Click(Sender: TObject); begin a:=''; assignfile(input,'first.pas'); reset(input); while not(EOF(input)) do begin read(input,chet); a:=a+chet; end; closefile(input); memo1.Text:=a;

достаточно два раза написать программу, которая выводит свой текст, а это где-то тут уже обсуждалось