Задача №24
Поставитьбуквы в алфавитном порядке.
uses crt-
vardl,ch,n,i,k:integer-
text,alf,c,sim,buk:string-
d:array[1..32] ofinteger-
label 1-
begin
clrscr-
writeln(‘Введите текст’)-
readln(text)-
dl:=length(text)-
alf:=’абвгдежзийклмнопрстуфхцчшщъыьэюя’-
clrscr-
for k:=1 to 32 do
d[k]:=0-
for i:=1 to dl do
begin
sim:=copy(text,i,1)-
for k:=1 to 32 do
begin
buk:=copy(alf,k,1)-
if sim=buk then
d[k]:=d[k]+1-
end-
end-
for i:=1 to 32 do
begin
if d[i]<->-0then
begin
gotoxy(i*2+5,15)-
writeln(alf[i])-
gotoxy(i*2+5,18)-
writeln(d[i])-
end
end-
gotoxy(5,13)-
writeln(text)-
end.
Категория: Строки |
Дата: 14.01.13
|