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

Публикувано на 08 март, петък от Данаил

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

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

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

  1. Данаил каза:
    11 март, понеделник в 11:02 
    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.

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