Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
люся4085
06.01.2021 08:44 •
Информатика
Написать программу на паскале абс ввести последовательность символов, заканчивающуюся точкой и определить, каких букв больше, ’h’ или ’h’
Показать ответ
Ответ:
7515575
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 оценок)
Популярные вопросы: Информатика
МАШЕНЬКА881
31.03.2021 15:48
Напишите код на Python Самый простой без циклов, if и т.д....
Испан1
03.05.2022 23:37
ПОБЫСТРЕЕ! Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (6, 4); (7, 8); (12, 10); (5, 6); (11, 10);...
Larisa150301
05.06.2022 22:41
Как начертить в кумире цифры напишите шаги...
meli12341
27.06.2021 03:57
На вході маємо 2 числа (наприклад x і y). Програма має перевіряти чи ці числа рівні: якщо вони рівні, то має виводитися повідомлення «Числа рівні», якщо перше число більше,...
syropyatovkoce
07.05.2020 23:28
Покупатель магазина получает скидку 3%, если у него есть дисконтная карта или если общая стоимость его покупки превышает 5000 рублей. Определите, сколько заплатил каждый...
ks441934
26.03.2023 09:06
Решить : символом f обозначено одно из указанных ниже логических выражений от трех аргументов x, y, z. дан фрагмент таблицы истиности выражения f: x y z f 0 1 1 0 1 1 1 1...
HNLLZ
26.03.2023 09:06
Какое имя файла допустимо в ос windows?...
ApTeM098
26.03.2023 09:06
Ниже перечислены действия, выполняемые на этапах редактирования и форматирования текстового документа замена одного символа на другой вставка пропущенного слова видоизменение...
kignkfleh
02.10.2022 20:32
Какое из указанных ниже имен удовлетворяет маске *mar? *.do: imar.doc; mart.docx; lamarc.doc; smar.dot?...
botvinaanna80
12.02.2020 03:16
Сочинение на тему природа учит нас доброте...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.