Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Nikita20000005
07.06.2021 06:34 •
Информатика
Написать программу на паскале абс ввести последовательность символов, заканчивающуюся точкой и определить, каких букв больше, ’h’ или ’h’
Показать ответ
Ответ:
tonkikhliza
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 оценок)
Популярные вопросы: Информатика
azalhanovahalid
24.02.2021 23:51
Какое число меньше? а) 6007 б) 60010 в) 60012 г) 60016 Выберите один ответ: в) а) г) б)...
ltimofienko
11.11.2021 06:53
Формула =$A$2+$B3 была скопирована из ячейки B6 в ячейку C8. Какая формула получилась в C8?...
zemkina347
28.06.2022 20:32
Дана функция y = f(x), где f(x) =х+4,3. При каких значениях аргумента выполняется равенство f(x) = 5?ответ: х =...
zzzaharr
13.12.2022 22:51
Реферат набранный на компьютере, содержит 20 страниц на каждой странице 60 строк, в каждой строке 64 символа. для кодирования символов. Используется Unicode, при...
RMDEL
21.02.2022 16:56
ЗАДАНИЕ - Текст сформулируйте произвольно В тексте укажите Что Ваш центр не может выполнить своевременно заказ проекта маркетингового исследования фирмы Астра-П...
raminpomohs
22.06.2021 18:04
Буду блогодарна уровень 6 класса...
kirpol83p01doz
06.07.2022 05:31
Опишите полный синтаксис функции Print...
Alenasol1
23.03.2021 15:43
Что входит в состав ПРИЛОЖЕНИЙ ОБЩЕГО НАЗНАЧЕНИЯ прикладного программного обеспечения (6 ответов) Текстовый редактор Операционная система Графический редактор Драйверы...
balashik8379
26.08.2021 01:34
Как узнать массу если известна толщина высота и ширина...
lololololo7
26.08.2021 01:34
Раскрывая скобки и ставя словосочетания из скобок в нужном падеже. (оба старика) перейти улицу; расспросить (оба ученика); побеседовать с (оба брата); посадить...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.