1. Информатика
  2. Дана строка символов. найти количество

Дана строка символов. найти количество слов начинающихся на букву а . через паскаль ничего в нем не соображаю а иветешник

Куропаткана666гргрг Куропаткана666гргрг    2   18.03.2019 12:00    3

Ответы
Pumpkinjeck Pumpkinjeck  25.05.2020 23:23

var a:string;
i:integer;
begin
readln(a);
a:=a+' ';
while length(a)>0 do begin
if a[1]='a' then inc(i);
delete(a,1,pos(' ',a));
end;
writeln(i);
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
IrinaZoloeva IrinaZoloeva  03.10.2019 03:00
Написать программу, выводящую номер этажа, где расположена квартира, если известно, что в этажном доме один подъезд, на четных этажах по 7 квартир, на нечетных –...
alinamensikova alinamensikova  03.10.2019 03:00
Сформировать и вывести целочисленный массив a, и вывести целочисленный массив a размером 8 элементов, содержащий степени двойки от 1 до 8...
CloudySun CloudySun  03.10.2019 03:00
Сделать блок-схему этой var summa,count,numb : integer; begin summa: =0; count: =0; readln(numb); while numb 0 do begin if numb mod 17 = 0 then begin summa: =summa+numb;...
mamikon777 mamikon777  23.07.2019 13:50
Номер 1: как найти наименьший элемент квадратной таблицы и заменить его нулем. номер 2: как в прямоугольной таблице заменить все элементы их квадратами напишите на...
тёма113435 тёма113435  23.09.2019 04:30
Пятеро друзей обменялись между собой фотографиями. сколько всего было роздано фотографий? ответ поясни....
help274 help274  23.09.2019 04:30
Попытайтесь выявить закономерность в ответах , получаемых при вычислении в следующих примеров: 1*11 11*11 111*111 1111*1111 11111*11111...
57safavi 57safavi  23.09.2019 04:30
Составьте программу, которая последовательно запросит 10 целых чисел и в результате сообщит, сколько среди введенных чисел четных и сколько нечетных чисел....
pinelopa2005 pinelopa2005  23.09.2019 04:30
Вычислить и вывести на экран 75 целых чисел их среднее арифметическое сами числа заданы случайным образом из диапозона -5; 5 в с++...
Nasta11111112356 Nasta11111112356  23.09.2019 04:30
Паскаль случайные числа. дана простая программа, которая демонстрирует работу датчика случайных чисел: program example; var i: integer; begin for i: =1 to 10 do write...
Anasstezz Anasstezz  10.08.2019 21:40
Что вы понимаете под кодированием информации...

Популярные вопросы