Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
dominocos
15.02.2022 23:02 •
Информатика
Написать программу, которая определяет сколько раз в слове повторяется буква.дан текст ''информатика". используя функцию copy
Показать ответ
Ответ:
kintel1
03.10.2020 03:08
Program Project1;
var x, n:integer; byk:char;
const a:string='информатика';
begin
readln(byk);
n:=0;
for x:=0 to 10 do
if Copy(a, x+1, 1)[1]=byk then n:=n+1;
writeln(n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
касымжомарттокаев1
21.02.2020 03:47
Синтез логических выражений . Постройте и упростите логические выражения , соответствующие приведённым таблицам истинности .В каждом случае выбирайте наиболее простой синтеза . В...
svetik83
15.03.2022 09:40
Оцените несколько сайтов в Интернете по следующим критериям: - Грамотность текста; - Соответсвие дизайна тематике сайта; - Какого качества иллюстрации....
122Даша
30.01.2023 22:49
Поговаривали, будто давным-давно кто-то из Туков взял себе жену из эльфов. Глупости, конечно, но и до сих пор во всех Туках и в самом деле проскальзывало что-то не совсем хоббитовское:...
AnnaNazar07
26.12.2020 06:54
Векторлық суреттерді пайдаланудың тиімділігі...
igor331
13.02.2022 10:53
Переведите числа из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления. а) 563; б) 264; в) 234,25; г) 53,125; д) 286,16. 2. Переведите числа...
kceniakey
19.01.2023 13:44
Составить программу в виде процедуры и функции для нахождения площади прямоугольного треугольника в Паскале. ...
Кристиналадату
19.08.2022 22:08
хелпаните все задания нужно выполнить...
Rayana555
23.02.2022 02:35
Построить таблицу истинности,нужно до завтра...
lenusj1975197514
05.04.2023 17:38
Создать модуль, содержащий указанные подпрограммы: удаления из текстового файла цифр; вычисления количества символов в текстовом файле; вычисления количества строк в текстовом файле....
Dasha555511111
22.09.2022 08:20
Оформите титульную страницу потенциального сайта на любую тему или из предложенного списка: - Сайт цветочного магазина «Аленький цветочек»; - Сайт любителей экстремальных видов спорта;...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x, n:integer; byk:char;
const a:string='информатика';
begin
readln(byk);
n:=0;
for x:=0 to 10 do
if Copy(a, x+1, 1)[1]=byk then n:=n+1;
writeln(n);
end.