Составить программу для решения следующей задачи: Дана последовательность символов,концом которой является точка.Подсчитать,сколько в этой
5-9 класс
|
последовательности букв а. Pascal.Срочно плиз помогите!!!
program test;
var k,i:integer;s:string;
begin
readln(s);
for i:=1 to (length(s)-1) do // -1 это точка
if s[i]='a' then k:=k+1;
writeln(k);
end.
Другие вопросы из категории
радиоканалу, обеспечивающему скорость получения им информации 2 (в 17 степени) бит в секунду. У Пети нет скоростного доступа в Интернет, но есть
возможность получать информацию от Васи по низкоскоростному телефонному
каналу со средней скоростью 2(в 15 степени) бит в секунду. Петя
договорился с Васей, что тот будет скачивать для него данные объемом 4
Мбайта по высокоскоростному каналу и ретранслировать их Пете по
низкоскоростному каналу. Компьютер Васи может начать ретрансляцию данных
не раньше, чем им будут получены первые 512 Кбайт этих данных. Каков
минимально возможный промежуток времени (в секундах), с момента начала
скачивания Васей данных, до полного их получения Петей? В ответе укажите
только число, слово «секунд» или букву «с» добавлять не нужно.
бит в секунду.
вычислить значение у для х заданному с клавиатуры по формуле
y=1-x,если x<0
1+x,если x>10
Читайте также
рождения 1 доллар. В каждый следующий день рождения он удваивал свой подарок и прибавлял к нему столько долларов, сколько лет исполнилось его племяннику. Определите, к какому дню рождения сумма превысит 100 долларов? Помогите плииз.
наибольшим из них и выведите результаты на экран. Иначе, найдите и выведите сумму квадратов этих чисел.
выведите на экран их сумму. Если все они нечетные и A>B>C, то определите и выведите значения наибольшего и наименьшего из чисел. Иначе, выведите числа без изменения. Фрагмент программы: if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0) then begin S:=a+b+c; writeln('сумма равна ', S); end; if (a mod 2 <> 0) and (b mod 2 <> 0) and (c mod 2 <> 0) and (a>b) and (b>c) then begin writeln('наибольшее число ', A); writeln('наименьшее число ', C); end else writeln('a= ',a,' b= ', b, ' c= ',c);
(не меньше 0). тема: Логические основы программирования