Сначала я читаю изфайла и вывожу 1 и 3 строки.
Код
var
pas:text;
a,c,b:string;
begin
assign(pas,'C:\windowr\pase');
reset(pas);
readln(pas,a);
readln(pas,b);
readln(pas,c);
close(pas);
writeln(a);
writeln(c);
end.
по-моему здесь все правильно.
![]() |
Романтик |
![]()
Сообщение
#1
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 159 Пол: Мужской Реальное имя: Anton Репутация: ![]() ![]() ![]() |
Я тут с одноклассником поспорил, что вот эта прога работает всегда и стабильно.
Сначала я читаю изфайла и вывожу 1 и 3 строки. Код var pas:text; a,c,b:string; begin assign(pas,'C:\windowr\pase'); reset(pas); readln(pas,a); readln(pas,b); readln(pas,c); close(pas); writeln(a); writeln(c); end. по-моему здесь все правильно. -------------------- made in USSR.
|
![]() ![]() |
Гость |
![]()
Сообщение
#2
|
Гость ![]() |
Ну, значит ты все-таки проиграл, ибо вопрос, если я не ошибаюсь, был:
Цитата что вот эта прога работает всегда и стабильно. У klem4 не сработало - этого достаточно, чтобы признать твое поражение... |
![]() ![]() |
![]() |
Текстовая версия | 9.09.2025 15:36 |