дана строка символов. найти количество слов начинающихся на букву а . через паскаль пожалуйста ничего в нем не соображаю а иветешник задолбал
10-11 класс
|
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.
Другие вопросы из категории
(a,z:real);
c) Function P(A: array [1..100] of integer ):integer;
d) Procedure (x,y:integer; var t:real);
e) Procedure AE (S:string; k:byte):string;
f) Procedure M (b,c: integer; var k:real);
Сделайте эту работу или напишите формулу по которой узнавать "Определение тарифа" и "Стоимость разговора"
Задание:
Табличные процессоры
1. Создайте точно такой же документ, как представлен на рисунке
2. Выполните необходимые расчеты. Для столбца "Определение тарифа" используйте функцию Если и абсолютные ссылки.
3. После выполнения всех расчетов постройте сводную таблицу отражающую общую стоимость переговоров по зонам (Строки) и Видам тарифов (Столбцы)
4. По данным сводной таблицы постройте диаграмму, показывающую долю стоимости переговоров по каждой зоне.
Читайте также
2.Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Подсчитать, сколько слов расположено внутри этих скобок.
3.Дана строка. Удалить из нее все запятые и подсчитать, сколько получилось удаленных символов.
Помогите, пожалуйста!
квадратов со стороной C (без наложений). Найти количество квадратов, размещенных на прямоугольнике, а также площадь незанятой части прямоугольника.
Сколько раз среди данных символов встречаться цифра?
паскаль. подскажите