Решить пліз хотяби несколько ]варіант-1 дана послідовність слів. визначити кількість букв “а” і “б” в ній. якщо таких букв немає, то вивести повідомлення. варіант-2 скласти програму, яка підраховує число тих слів у реченні із и букв, в яких на другій позиції знаходиться задана буква. слова розділенні пропусками. якщо таких слів немає, то видається повідомлення . варіант-3 скласти програму, яка із заданого слова вилучає всі букви “а”. варіант-4 скласти програму, яка виводить на екран всі символи. варіант-5 скласти програму, яка визначає скільки цифр у заданому числі і знаходить їх добуток. варіант-6 скласти програму, яка підраховує кількість букв у введеному реченні. словом м/б розділенні пропусками, або комами. варіант-7 написати програму, яка перевіряє чи стоїть перед “що” кома. варіант-8 написати програму, яка перевіряє чи поставили в кінці речення, що вводиться крапка. варіант-9 скласти програма, яка виводить слово ззаду на перед. варіант-10 дана послідовність слів. перевірити чи є в ній задане слово. варіант-11 задати речення. програма повинна виводити на екран всі символи, що зустрічаються до першого знака “-”. якщо його немає, то виводиться повідомлення. варіант-12 вивести слово задом наперед. варіант-13 у заданому реченні знайти найдовше (найменше) слово. варіант-14 скласти програму, яка із слова “інтеграл” утворює слово “гантелі”, “тигр”. варіант-15 знайти найменше із слів, що записані в реченні. варіант-16 написати програму, яка по назві дня неділі визначає номер цього дня . варіант-17 дана послідовність слів підрахувати скільки слів закінчуються на “а”. варіант-18 скласти програму, яка підраховує скільки раз в послідовність слів зустрічається буквосполучення “сок”. варіант-19 написати програму, яка виводить на екран коди всіх букв. варіант-20 скласти програму, яка перевіряє чи поставили вкінці речення “крапку”. варіант-21 програма підраховує число тих слів в, яких на другій позиції стоїть буква “а”. варіант-22 скласти програму, яка виводить на екран всі символи після знаків “-“. варіант-23 написати програму, яка визначає, чи являється введене слово “перевертишем” (напр. “потоп”, “казак”). варіант-25 скласти програму, яка вилучає із заданого слова всі букви “а”.
var str:string;
A,B,i:integer;
begin
write('введите ваш текст');
readln(str);
for i:=1 to length(str) do begin
if (str[i]='А')or (str[i]='а') then a:=a+1;
if (str[i]='Б')or (str[i]='б') then B:=b+1;
end;
if (A+B)=0 then write('нет таких букв') else write ('A= ',A,' Б= ',b);
end.
вариант 3
var str:string;
A,B,i:integer;
begin
write('введите ваш текст');
readln(str);
i:=1;
while i<=length(str) do begin
if (str[i]='А')or (str[i]='а') then delete(str,i,1);
i:=i+1;
end;
write(str);
end.