В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История

#13 напиши программу, которая определяет, сколько раз встречается буква ’a’ в слове, которое введет пользователь. #14 напиши программу, которая определяет, имеются ли в слове два соседствующих одинаковых символа.

Показать ответ
Ответ:
nikitabarkov1
nikitabarkov1
17.07.2020 18:25
#13
Вот крч только это убого насамом деле,просто я забыо как через цикл делать но если ты вспомнишь,то красавчик,и да там определяет только большие А и только английские )
program q;
var
a:string;
t,b:integer;
begin

readln(a);

b:=0;

if a[1]= 'A' then t:=b+1
else t:=0;
if a[2]= 'A' then t:=t+1
else t:=t;
if a[3]= 'A' then t:=t+1
else t:=t;
if a[4]= 'A' then t:=t+1
else t:=t;
if a[5]= 'A' then t:=t+1
else t:=t;
if a[6]= 'A' then t:=t+1
else t:=t;
if a[7]= 'A' then t:=t+1
else t:=t;
if a[8]= 'A' then t:=t+1
else t:=t;
if a[9]= 'A' then t:=t+1
else t:=t;
if a[10]= 'A' then t:=t+1
else t:=t;
if a[11]= 'A' then t:=t+1
else t:=t;
if a[12]= 'A' then t:=t+1
else t:=t;
write(t);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота