Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nargizcavid
25.10.2021 12:08 •
Информатика
Дано предложение. определить долю (в%) букв «а» в нем. )
Показать ответ
Ответ:
CERRY050505
20.07.2020 06:47
PascalABC.Net
взял символ английская a
если что заменишь
var
s : string;
i,l,k : integer;
r : real;
begin
readln (s);
l := Length (s);
for i := 1 to l do
if s[i] = 'a' then
k := k + 1;
r := trunc(k/l * 100);
writeln (r,'%');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
vikyyyyysya142
10.08.2021 09:59
Натуральное число из n цифр является числом Армстронга, если сумма его цифр, возведенных в n-ю степень, равна самому этому числу (как, например 153=13+53+33).Получить все числа...
YerasylAmangeldi
07.03.2021 10:02
Одноканальный звук длительностью 1сек оцифрован с частотой 1024ГЦ и разрядностью 24 определите размер полученного файла в Кбайтах...
Мишa1
26.01.2021 05:53
1. Постройте таблицу истинности для логического выражения: a) A˄B˅А...
nastuaserova
23.02.2023 13:11
2. Составь предложения с найденным словом: {Выход из лабиринта}...
danadv
24.05.2022 06:17
дано целое число N( 1) . Найти наибольшее целое число К,при котором выполняется неравенство 2^К N. Решить задачу используя циклическую конструкцию while ,на питон . ...
Gbr330
06.04.2023 17:15
Определите значение b после выполнения алгоритма: а:= 8b:= 2a:= 14 + a*bb:= b + a/3ответ: ...
vladysh205
23.12.2022 06:36
Написать программу решения в pascal abc. : занятия в школе начинаются в 8: 30. урок длится 40 минут, перерывы между уроками – 15 минут. ввести номер урока и вывести время его окончания....
resssnizisss
19.04.2020 10:43
Школьная .решите так чтобы было понятно школьнику....
kolasalnov5
07.01.2021 02:45
Укажите, в какой из групп устройств перечислены только устройства ввода информации принтер, монитор, акустические колонки, микрофон клавиатура, сканер, микрофон, мышь клавиатура,...
Прост2004
25.07.2022 09:40
Какое из следующих утверждений точнее всего раскрывает смысл понятия информация с бытовой точки зрения? последовательность знаков некоторого алфавита книжный фонд библиотеки сведения...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
взял символ английская a
если что заменишь
var
s : string;
i,l,k : integer;
r : real;
begin
readln (s);
l := Length (s);
for i := 1 to l do
if s[i] = 'a' then
k := k + 1;
r := trunc(k/l * 100);
writeln (r,'%');
end.