Другие языки программирования и технологии

Где ошибка Паскаль задача счастливый билет

var x:array(0..255) of:string,x1,x2,x3,x4,x5,x6:string;beginassign (input,'input.txt');reset (input);assign (output,'output.txt');rewrite (output);read(x);x1:=x[1];x2:=x[2];x3:=x[3];x4:=x[4];x5:=x[5];x6:=x[6];if (x1+x2+x3)=(x4+x5+x6) then write('YES') else write('NO');end.где тут ошибка пишет ошибка компиляции
Hen Bruen
Hen Bruen
248
А где тут не ошибки?

P.S. Напиши условие задачи.

P.P.S.
var s:string[6];
begin
assign (input,'input.txt'); reset (input); readln(input,s);
assign (output,'output.txt'); rewrite (output);
if ord(s[1])+ord(s[2])+ord(s[3])=ord(s[4])+ord(s[5])+ord(s[6])
then writeln(output,'YES') else writeln(output,'NO');
end.

Предполагается, что в файле записано всегда 6-значное число, например, 001001, как это делается на билетах.
ВБ
Виктор Берсенёв
80 166
Лучший ответ
var
input, output : text;
x:string[6];
i:byte;
y:array[1..6] of byte;
begin
assign (input,'input.txt');
assign (output,'output.txt');
{$I-}
reset (input);
{$I+}
if IOResult <> 0 then { если не нуль, то была ошибка }
begin
Write(Файл INPUT не найден! ');
Halt;
end;
{$I-}
rewrite (output);
{$I+}
if IOResult <> 0 then { если не нуль, то была ошибка }
begin
Write(Файл OUTPUT Невозможно создать! ');
Halt;
end;
ReadLn(input,x);
Close(input);
For i:=1 to 6 do y [ i ] = ord( x [ i ] );

if ((y[1]+y[2]+y[3])=(y[4]+y[5]+y[6]) then writeln(output,'YES') else WriteLn(output,"NO');

close (output);
END.
без обид.. .
топорно написана прога.
P.P.P.S. Фу ты, возможность редактирования уже пропала, придется добавить отдельно - забыл еще объявить в разделе var используемые файлы. Надо после s:string[6]; добавить input,output:text;
SL
Shoco Lee
22 474
сделай
var
x : string[6];
далее.. . ты x1+x2+x3 - складываешь не цифры, а коды символов (хотя, на логике это может не отражаться) .
используй readLN
а в конце проги файлики надо закрывать: close(input)

чувствую, что еще должны быть ошибки )))
если что - пиши в аську: 383-331-341
Надо после s:string[6]; добавить input,output:text;