Тема: І знову задачка, цього разу я майже зробив
Коли запускаю пише помилка
Ось мій код
program ss;
var y,x:text;
i,n,b,m,c,s,stroka:integer;
str , t1: string;
begin
n:=1;
assign(x,'d:\prog.pas');
assign(y,'d:\prog2.pas');
reset(x);
readln(x,i); // // зчитує кількість тестів
while
n<i
do
begin
readln(x,b); // зчитує розмір квадрату//
stroka:=b*2-1;
while m<=b do
begin
while stroka >= 1 do
begin
readln(x,str); // зчитує перший рядок першого квадрату
t1:= copy(str,stroka,1); // копіює число в позиції 5 (stroka = 5)
c:=StrToInt64(t1);
s:=s+c;
stroka:=stroka-2;
end;
m:=m+1;
end;
n:=n+1;
end;
write(s);
close(x);
end.Ось файл, з якого зчитуються змінні
2
3
4 5 6
3 2 1
4 4 5
3
5 3 3
1 2 1
4 5 1Задачка у файлі (якщо кого цікавить) номер 2
