-
Гость, мы просим Вас ознакомиться с Правилами Форума и Отказом от ответственности!
Последнее сообщение от АндрюхиН
-
СообщениеОпятьже Pascal
program byeeee; uses crt; var tests:text; i,line:integer; put,getline,testgroup:string; begin clrscr; readln(testgroup); readln(line); put:='Путь'; getline:=''; assign(tests,put); append(tests); for i:=0 to line do begin if (EOF(tests)) then break; readln(tests,getline); end; close(tests); writeln(getline); readkey; end. Вот тут if (EOF(tests)) then break; ставит курсор на if после того как я ввожу данные,и пишет Fail not open for input....
-
-
-
-
-
-
-
-
-
-
Сообщение
Опятьже Pascal
Все нашел :D
-
-
-
Сообщение
Опятьже Pascal
мдем) ты гений) =DDD
-
