Найти ошибку в результирующем файле должно выводится буква встречающаяся чаще всего и количество но он выходит алфавит.вот код:
uses crt;

const
lat = ['a'..'z'];
type
mas = array['a'..'z'] of integer;
procedure strtomas(s: string; var a: mas);
var
c: char;
i: integer;
begin
for c : = 'a' to 'z' do
a[c] : = 0;
for i : = 1 to length(s) do
if s[i] in lat then
a[upcase( : = a[upcase( + 1;
end;

procedure max(var a: mas; s,s1: string);
var
c: char;
i,k,j: integer;
begin
k : = 0;
readln(s);

for c : = 'a' to 'z' do
k: =0;
for i: =1 to length(s) do

if s[i]=c then k: =k+1
end;

procedure mastostr(var a: mas; var sres: string; s,s1: string);
var
c, k: char;
maxcnt: integer;

begin
sres : = '';

for c : = 'a' to 'z' do

begin
if a[c] > 0 then
max(a,s,s1);

sres : = sres + c + ' ' + k + ' ';
if length(sres) > 2 then
delete(sres, length(sres) - 1, 2);
end;
end;

procedure filetofile(var f1,f2: text);
var sres,s,s1: string; a: mas;
begin
reset(f1); rewrite(f2);
while not eof(f1) do begin
readln(f1,s);
if s < > '' then begin
strtomas(s,a);
max(a,s,s1);
mastostr(a, sres,s,s1);
end
else sres: = '';
writeln(f2, sres);
end;
close(f1); close(f2);
end;

var
f1, f2: text;
fname1, fname2: string;

begin
clrscr;
task;
write('введите имя исходного файла ');
readln(fname1);
assign(f1, fname1);

if fileexists(fname1) then begin

write('введите имя результата ');
readln(fname2);
assign(f2, fname2);
filetofile(f1, f2);
end
else writeln('файл с таким именем не существует');
end.

192

485

Посмотреть ответы 2

Ответы на вопрос:

Horsik1Konnik

Информатика

4,4(51 оценок)

Акакой это класс если девятый готова

yanaolok

Информатика

4,7(90 оценок)

124(x) = 84(10) x^2+2*x+4 = 84 x = 8 124(8) = 8^2+2*8+4 = 64+16+4 = 84(10) ответ: 8

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.