Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
egorageev07
25.06.2020 07:05 •
Информатика
Написать программу на паскале абс ввести последовательность символов, заканчивающуюся точкой и определить, каких букв больше, ’h’ или ’h’
Показать ответ
Ответ:
llGeexyll
03.10.2020 04:41
Var
c:char;
fc,sc:integer;
begin
while c <> '.' do
begin
read(c);
if c = 'H' then
inc(fc);
if c = 'h' then
inc(sc);
end;
if fc > sc then
writeln('H больше');
if fc < sc then
writeln('h больше');
if fc = sc then
writeln('Одинаково');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
vinnnner
21.01.2022 01:11
ф. Какой информационный объём потребуется для сохранения 2 минутвидео на экране монитора с разрешением 800 x 600 и палитрой на 128ветов1) 23071 Кбайт2) 23071 Мбайт3) 24000...
mама
25.06.2020 19:49
Переменные x и y — неотрицательные числа. Найдите такое наименьшее число A, для которого справедливо:(A⋅ (x − 2) y) → ((x − 10) ⋅ (20 − x) y) ≡ 1Как можно подробнее с обоснованием...
Вквквквквк
04.02.2022 22:06
Сколько секунд потребуется на передачу файла размером 250 кб по линии связи со скоростью 1000 бит в секунду...
MHEBCEPOBHO
03.03.2021 08:15
Вследующих примерах выделите носитель информации, определите, является ли сигнал, эту информацию, дискретным или непрерывным: наблюдение за показаниями спидометра автомобиля....
алина3843
05.03.2021 12:39
Нужно написать такую программу на паскале Конкурс Кенгуру всегда проходит в x-ый четверг марта. Самый ранний из возможных дней для проведения Кенгуру это y марта...
khezh073
02.10.2020 15:27
Як одним словом назвати дії об єктів інформаційних систем...
рксский
30.10.2020 03:40
Cоставить программу вычисления арифметического выражения для заданных значений x, y, z :C++...
75643
21.11.2022 11:03
Загадки шифровки решить...
bon332
13.12.2021 15:37
1. Як кодується символьна інформація? 2. Які особливості кодування растрових зображень; векторних? 3. Які параметри впливають на якість оцифрованого звуку? 4. Як розраховується...
ffjuee
22.05.2020 04:16
1100111,011 преобразовать двоичное число в его десятичное представление...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
c:char;
fc,sc:integer;
begin
while c <> '.' do
begin
read(c);
if c = 'H' then
inc(fc);
if c = 'h' then
inc(sc);
end;
if fc > sc then
writeln('H больше');
if fc < sc then
writeln('h больше');
if fc = sc then
writeln('Одинаково');
end.