Строки и буквы Опции

[симав]

Кто-нибудь, помогите! Училка задала программы, а тему даже не объяснила! Помогите сделать их.
1. Подсчитать, каких букв в тексте больше: "а" или "о". Текст взять любой.
2. Поменять местами первую и последнюю букву в заданном тексте. Текст любой.
3. Подсчитать кол-во предложений в тексте. Текст любой.
Заранее спасибо! :D

[klem4]

Код

inc(i)<=>i:=i+1;

Удаляем из первого задания лишние переменные ;)

Код

uses crt;
var s:string;
   i,ka,ko:byte;

Begin
  clrscr;
  write('s=');readln(s);
  ka:=0;ko:=0;
  for i:=1 to length(s) do
   begin
      if s[i]='a' then inc(ka);
      if s[i]='o' then inc(ko);
   end;
  writeln('ka=',ka);
  writeln('ko=',ko);
  readln;
end.

Сообщение отредактировано: klem4 - 5.04.2005 17:25