Здасьте....
Дано тестовое задание:
var f:text; x,y:char;
Каким будет содержимое файла f после выполнения следующих операторов:
rewrite(f);
for x:='1' to '3' do
begin y:=succ(x); write(f,y);
end;
Введите последовательность элементов файла через пробел.
Я полагаю примерный код будет таким:
program test;
const
name='C:\test.txt';
var
f:text; x,y:char;
begin
assign(f,name);
rewrite(f);
for x:='1' to '3' do
begin y:=succ(x); write(f,y);
end;
close(f);
reset(f);
while Not Eof(f) do
begin
Read(f,y);
writeln(y);
end;
close(f);
WriteLn('File was saved.');
end.
выводится ответ 2 3 4 (его я и вношу в тестовый ответ) но в тесте,он указывается как неправильный.... Подскажите, где ошибка? Заранее благодарю, кто откликнется.
