Версия для печати темы

Автор: azzaq1 2.05.2010 15:05

В файле *.txt набран текст. Вывести все символы, которые встречаются во второй половине.
Вывести латинскую букву, которая встречается в тексте реже остальных в 1 и 3 строках.

Автор: Client 2.05.2010 15:11

mas : array['a'..'z'] of byte; 
...
for i := 1 to length(s) do
  inc(mas[s[i]);

Автор: azzaq1 2.05.2010 15:17

Половине чего? слова? предложения?

.......текста

Автор: Client 2.05.2010 15:26

прочитываешь файл первый раз чтобы узнать количество символов.
Во второй раз дойдя до второй половины, заноси символы в множество.
Останеться только вывести содержимое множества

Автор: azzaq1 2.05.2010 16:18

spasibo!

Автор: azzaq1 2.05.2010 17:53

Цитата(Client @ 2.05.2010 12:26)

Автор: azzaq1 2.05.2010 18:41

Цитата(azzaq1 @ 2.05.2010 12:05)

mas[i]:=0;
for i:= 1 to length(str1) do
begin
x:=ord(str1[i]);
mas[x]:=mas[x]+1;
end;
for i:=1 to 255 do 
begin
y:=chr(i);
writeln(y,'встречается', mas[i],'раз');
end;