Паскаль

Компьютеры программирование программы pascal паскаль

Задача 1. Определить сколько букв равных первой (и последней) входят в состав слова. Задача 2. Определить каких букв больше, равных первой или равных последней? Напишите программу пожалуйста.
Ответы:
Не понимаю скобки в задаче 1
Так их суммировать надо?
Кароче, нифига не поняла.
Ну пусть будет так:
var
 s: string;
 i, len, l, r: integer;
begin
 writeln('Vvedite slovo is 3 ili bolee bukv.');
 readln(s);
 len := length(s);
 if len > 2 then
 begin
   l := 0;
   r := 0;
   for i := 2 to len - 1 do
   begin
     if s[i] = s[1] then inc(l);
     if s[i] = s[len] then inc(r);
   end;
   writeln('V slove ', l, ' bukv, ravnih pervoi, i ', r, ' - ravnih pjslednei.');
   if l > r then
     writeln('Bukv, ravnih pervoi, bol''she, chem ravnih poslednei.')
   else if l < r then
     writeln('Bukv, ravnih pervoi, men''she, chem ravnih poslednei.')
   else
     writeln('Bukv, ravnih pervoi stolko je, skolko ravnih poslednei.');
 end
 else
   writeln('Slishkom korotkoe');
 readln;
end.


13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.