#13
Напиши программу, которая определяет, сколько раз встречается буква ’A’ в слове, которое введет пользователь.
#14
Напиши программу, которая определяет, имеются ли в слове два соседствующих одинаковых символа.
#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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
