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

196

365

Посмотреть ответы 2

Ответы на вопрос:

Nactyxa2003

Информатика

4,6(9 оценок)

#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.

akonbkaru

Информатика

4,6(96 оценок)

Const k = 13; var a: array[1..k] of integer; i,n,x: integer; begin write('x = '); readln(x); write('исходный массив: '); for i: = 1 to k do begin a[i]: =random(21)-10; write(a[i],' '); end; n: =0; for i: = 1 to k do if a[i]=x then n: =n+1; writeln; writeln(n,' - кол-во элементов, равных ',x); end. const k = 13; var a: array[1..k] of integer; i: integer; p: real; begin p: =1; write('исходный массив: '); for i: = 1 to k do begin a[i]: =random(21)-10; write(a[i],' '); if a[i] mod 3 = 0 then p: =p*a[i] end; writeln; writeln('произведение элементов,кратных трём: ',p) end. const k = 13; var a: array[1..k] of integer; i,x: integer; begin write('x = '); readln(x); write('а: '); for i: = 1 to k do begin a[i]: =random(21)-10; write(a[i],' '); end; writeln; i: =0; repeat i: =i+1; until (a[i]=x)or(i=k); if a[i]=x then writeln(i) else writeln('таких элементов нет') end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.