Отпечатване на кода на програмата

Напишете програма, която отпечатва сама на екрана своят програмен код (ако сте запазили името на проекта по подразбиране, кода на програмата е във файла project1.lpr)

Публикувано в 10в с етикети . Постоянна връзка.

Един коментар по Отпечатване на кода на програмата

  1. Данаил каза:
    program project1;
    var
      F: text;
      Red: string;
    begin
      Assign(F, 'project1.lpr');
      Reset(F);
      while not EOF(F) do begin
        ReadLn(F, Red);
        WriteLn(Red);
      end;
      Close(F);
      ReadLn;
    end.
    

Вашият коментар