Ввести слово. Сосчитать сколько в нем букв А.
10-11 класс
|
var
s : string;
i, c : integer;
begin
c := 0;
readln (s);
for i := 1 to length (s) do
if s[i] = 'a' then
c := c + 1;
write (c);
end.
Другие вопросы из категории
если n=10, A0=0.75, A1=1.6, A2=A3=...=A10=2.0; X изменяется с шагом h=0.2 от X1=0 дo X2=2.0.
если сумма больше 1000 руб. (Pascal)
Читайте также
переставил буквы в слове так, чтобы оно читалось справа налево;
поменял местами вторую и последнюю буквы
поменял местами два последних слога
первые три буквы переставил в конец слова (не меняя порядок этих трех букв)
добавил в конец слова два новых кубика с буквами.
У Пети получилось слово СЕРОЦОРПСИК.
Восстановите первоначальное слово.
оперативной памяти размером в 16 байтов; В – конечное число точек на плоскости, соединённых отрезками кривых линий; С – единица измерения расстояния; Д – аргумент или результат процедуры.В ответе запишите найденные слова: сначала А, затем, В, С и Д, через один пробел, без знаков препинания.
....
Ввести слово. Вывести слово, полученное путем перестановки местами половинок введенного слова.
....
Ввести строку. Подсчитать , сколько в ней символов * D F H.
....
Ввести строку. Удалить из нее все цифры.
состоящий из 2-3 предложений. Определить, есть ли в нем английские слова и
сколько.