Небольшая ошибка в Pascal
var i,n,z,x,b:longint;
a:array [1..10] of longint;
s:string;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
b:=0;
read(n);
for i:=1 to n do
begin
read(a);
s:=a-1;
z:=s[1]+s[2]+s[3];
x:=s[4]+s[5]+s[6];
if z=x then
b:=1;
s:=a+1;
z:=s[1]+s[2]+s[3];
x:=s[4]+s[5]+s[6];
if z=x then
b:=1;
end;
if b=1 then
write('Yes');
if b=0 then
write('No');
end.
Ошибка возникает когда s:=a-1; может заменить чем-нибудь? Подскажите как исправить. Заранее спасибо!
там есть, почему-то mail стирает его!
Опять стёр там i в [ ], где a
Вот задача
http://acmu.ru/?main=task&id_task=327
Дмитрий, я же сюда зачем то обратился, не похвалиться же!