Автор: asdfg

asdfg — Fri, 27 Aug 2021 19:27:09 +0000

var

f:text;

s,so:string;

s5:string[5];

fo:file of string[5];

c:char;

a:array [1..33]of integer;

i:integer;

begin

readln (s);

assign(f,s);

readln(so);

assign(fo,so);

reset(f);

rewrite(fo);

while not eof(f) do

begin

read(f,c);

if (ord(c)>=1072) and (ord(c)<=1103) then inc(a[ord(c)-1071])

end;

for i:=1 to 33 do if a[i]>0 then

begin

str(a[i],s);

write (fo,chr(i+1071),'-',s,' ');

end;

reset(fo);

while not eof(fo) do

begin

read(fo,s5);

write(s5);

end;

end.

Автор: asdfg

asdfg — Fri, 27 Aug 2021 19:07:17 +0000

var

f,fo:text;

s:string;

c:char;

a:array [1..33]of integer;

i:integer;

begin

readln (s);

assign(f,s);

reset(f);

while not eof(f) do

begin

read(f,c);

if (ord(c)>=1072) and (ord(c)<=1103) then inc(a[ord(c)-1071])

end;

for i:=1 to 33 do if a[i]>0 then write (fo,chr(i+1071),'-',a[i],' ');

end.

Комментарии: Решаем задачи Абрамян на Паскале. Text57

Автор: asdfg

Автор: asdfg