• PascalABCNET ругается на строку 20 в программе:
    program Test1;
    uses Crt;
    var
    file_1: string;
    c: integer;
    b: string;
    a: integer;
    begin
    ClrScr;
    gotoxy (1,1);
    textbackground (green);
    TextColor (15);
    writeln ('green');
    readln (a);
    writeln ('Ведено:',a);
    readln (b);
    writeln ('Ведено:',b);
    readln (c);
    if c = 1 then
    Assign (file_1, 'C:\Документы\Николай 2\Програмирование\text\test1.txt'); {Строка 20}
    Reset (file_1);
    readln (file_1,b);
    Close (file_1);
    rewrite (t);
    Close (file_1);
    end.

    Пишет: (на скриншоте)

    question img

Ответы 1

  • но ошибка то в 20 строке
    • Автор:

      pookie63
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years