Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nazaroline
21.02.2021 09:36 •
Информатика
Составить программу для решения следующей : дана последовательность символов,концом которой является точка.подсчитать,сколько в этой последовательности букв а. pascal. !
Показать ответ
Ответ:
Verenea
01.10.2020 14:50
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
SashaPoznavatel
26.07.2020 20:03
На картинке нарисован Борин маршрут. С клавитуры вводятся некоторые длины этого маршрута a, b, c, d, e, f в метрах. Найдите длину Бориного маршрута....
Vilgam
23.01.2021 23:17
Напишите реферат по теме информация и информационные процессы „...
9570896123
24.09.2022 07:23
Вычислить y=a+b+c , применив: а) - процедуру ввода данных; - процедуру вычисления y; - процедуру вывода результата; - переменные; pascal abc...
Aidos2011
17.05.2023 10:04
найдите 10 ошибок. # include # include void main { float a,b,c printf( Wichislenie chastnogo/n ); printf ( Wwedite w odnoi stroke delimoe i delitel\n ); scan ( %f %f ,&a,&b);...
manje
18.02.2023 06:59
Как называется специальный стол для карт...
Умныйгоблин
18.02.2023 06:59
Выражение и найти его значение при данных значениях переменных 1,3(х+2/13)-х+2,1 при х=0,4...
ЗнатокНа5
18.02.2023 06:59
Опираясь на правило, обясните, почему в этих словах пишется ъ. перепесать те слова,обозначая орфогрмаму объявление,объяснять,отъезд,подъезд,подъезжает,подъем, съездили,съезжались,съел,съемочный,съехали...
Nqp
18.02.2023 06:59
Как изменяются положение и длина, которую отбрасывают предметы в течение дня в вашей местности?...
Аида524
18.02.2023 06:59
Іть зробити розбір речення.усе заглухло,заснуло довгим сном аж до весни.сніги впали великі, й андрійко радо прокладає од порога до воріт стежку....
JHope23
18.02.2023 06:59
1) о чём идёт речь в данном тексте? 2) на сколько важна эта тема в настоящее время? 3) когда мы понимаем, что подросток должен защищать себя? в чём это проявляется? 4) согласны...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.