Паскаль - есть ответ « Вопросы и ответы

Salival, 221 просмотр

Задача 1. Определить сколько букв равных первой (и последней) входят в состав слова. Задача 2. Определить каких букв больше, равных первой или равных последней? Напишите программу пожалуйста.

Ответы:

Lest

Не понимаю скобки в задаче 1
Так их суммировать надо?

Lest

Кароче, нифига не поняла.
Ну пусть будет так:

Web

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]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.