Дистанционная подготовка: Задача №3735. Делаем срезы. Проблема с тестированием
Задача №3735. Делаем срезы. Проблема с тестированием
от Яна Кожевникова - Воскресенье 25 Январь 2015, 07:27
  Программа написана на PascalABC. Тесты на сайте дают 0 баллов. Когда тестирую сама, выводит все правильно. Проблема возникает не первый раз, исключительно по теме строки. Не пойму в чём дело.
var
a,b:text;
s:string;
i,t,n:integer;
begin
assign(a,'input.txt');
reset(a);
assign(b,'output.txt');
rewrite(b);
read(a,s);
writeln(b,s[3]);
t:=length(s);
writeln(b,s[t-1]);
for i:=1 to 5 do
write(b,s[i]);
writeln(b);
for i:=1 to t-2 do
write(b,s[i]);
writeln(b);
n:=1;
while n