Здравствуйте, подскажите что не так с программой. Компилятор выдает ошибку "Файл не найден". Проверила внимательно название, переместила файл в папку к программе. Ничего не
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.
Наверное файл повреждён.
Ищи файл.
Объяснение:
Ошибка "Файл не обнаружен" может вылетать по большому числу причин. Как проблемы в названии, а именно использование запрещённых символов либо кириллицы, так и до разрешения файла и неверного указания пути в нему в, непосредственно компиляторе. Скринов накидай, либо дай любые контакты Ошибка явно не в исполняемом коде.