Размещено 3 года назад по предмету
Информатика
от mashasysoeva
Здравствуйте, подскажите, пожалуйста, что не так с программой. Компилятор выдает ошибку "Файл не найден". Проверила внимательно название, переместила файл в папку к программе. Ничего не помогает(
Program N2;
var b, a: integer;
s: string;
k:text;
begin
s:='24.txt';
assign(k, s);
reset(k);
b := 1;
a := 1;
for i:integer:=2 to Length(s) do
if (s[i]=s[i-1]) and (s[i]='X') then
begin
a:=a+1;
if b < a then b:=a;
end
else a:=1;
writeln(b);
end.