• Предмет: Информатика
  • Автор: koliaivanov2002
  • Вопрос задан 9 лет назад

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Програмированиеtexttest1.txt'); {Строка 20}
Reset (file_1);
readln (file_1,b);
Close (file_1);
rewrite (t);
Close (file_1);
end.

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

Приложения:

Ответа на этот вопрос пока нет. Попробуйте найти его через форму поиска.

Вас заинтересует