Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
samokrut4501
02.01.2023 11:33 •
Информатика
Люди ! напишите программу определяющую какая из букв первая или последняя встречаются в заданном слове чаще
Показать ответ
Ответ:
grusnikot
01.10.2020 11:39
На паскале
var s:string; f,l,i:integer;
begin
read(s);
for i:=2 to length(s)-1 do begin if s[i]=s[1] then f:=f+1; if s[i]=s[length(s)] then l:=l+1 end;
if f>l then write('Первая')
else if l>f then write('Последняя')
else write('Одинаково')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
tigranmesropyan
15.01.2020 04:57
1. Дано натуральное, символы S1, S2... S. Выяснить, где больше во знаков среди Si Sn/2 или среди Sn2+1... Sn...
Elizabeth041100
25.12.2022 20:06
Вычислить информационный объем сообщения, записанного в 16-битовой кодировке и состоящего из Ваших ФИО без сокращений, разделенных пробелами Серёгина Полина Сергеевна...
diatel83
30.03.2020 04:51
Входные данные вводятся целые числа a и b. гарантируется, что a не превосходит b выходные данные выведите (через пробел) все четные числа от a до b (включительно). примеры...
yasuper07p0ad9l
20.10.2021 03:45
3. Выберите вариант ответа, при которых переменная х принимает целый тип данных? (Верных ответов: 2)а) х = 4,5+6c) 72b) 7% 2d) 772...
lerak1301
04.09.2021 12:04
(i) Нарисуйте таблицу, которая получится в результате исполнения этого кода....
lolkek6969
01.08.2021 10:04
Движение робота по линии. Урок 3 Изучи предложенное изображение и определи, как изменился результат выполнения цикла после изменения цвета поля Н_3 на красный изменение...
sotskova20041
17.04.2022 07:37
Информатика 8 класс ...
olgaborodec82
24.10.2022 06:32
Палочки Имя входного файла: стандартный ввод Имя выходного файла: стандартный вывод Ограничение по времени: 1 секунда Ограничение по памяти: 256 мегабайт Дети в лагере...
chernecov1977
22.09.2021 10:20
Help Python. Задача. Дана переменная i=200. Выводите все числа, делящиеся на 3 без остатка, пока переменная i не будет меньше или равна 20. (для решения данной задачи используете...
MilenaSmail12
22.03.2022 22:13
. Определите типы данных [2] a)A=’A9’ b)B=456 c) C=123.4 d)D=True...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var s:string; f,l,i:integer;
begin
read(s);
for i:=2 to length(s)-1 do begin if s[i]=s[1] then f:=f+1; if s[i]=s[length(s)] then l:=l+1 end;
if f>l then write('Первая')
else if l>f then write('Последняя')
else write('Одинаково')
end.