Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
bekker222
08.07.2020 00:47 •
Информатика
Написать программу, которая определяет сколько раз в слове повторяется буква.дан текст ''информатика". используя функцию copy
Показать ответ
Ответ:
МарянДансер
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 оценок)
Популярные вопросы: Информатика
Sashaooo
15.01.2020 17:21
Уколеса какие признаки , действия и состав...
tatulia32
22.05.2021 01:42
8. что такое компилятор? a) вид транслятора, который выполняет пооператорную обработку и выполнение программы; б) вид системной программы, которая переводит прикладную...
knowyourmemesboy
22.05.2021 01:42
Как расшифровать субд? каково назначение этого вида программного обеспечения?...
Margaryaanmag
22.05.2021 01:42
Для какого из чисел истинно высказывание: (первая цифра чётная) и не(сумма цифр чётная)? 1) 648 2) 452 3) 357 4) 123...
Gladiator974
22.05.2021 01:42
Сторона информацию. сторона принимающая информацию. система обмена письмами с компьютера по информатике 5 класс...
zorlnaviitukp00zmd
30.08.2020 11:39
Решить кроссворд 1) с его можно об опасности 4 буквы первая к2 звуки этого инструмента донести сигналы на несколько километров 7 букв четвёртая а3 самое современное средство...
Killerman68
31.08.2020 15:54
Вкаком формате нужно сохранить файл чтобы он мог быть прочитан в других приложениях с сохранением форматирования? без сохранения?...
svashalol
13.07.2021 10:54
Вшколе продолжительность каждого урока 45 минут, а перемены между уроками - 5 минут. первый урок начинается 8 часов утра. напишите программу, отвечающую на вопрос во сколько...
maksshangutov
15.02.2021 16:13
Свыборочным ответом. за минимальную единицу измерения количества информации принят: 1) 1 бод 2)1 пиксель 3)1 байт 4) 1 бит...
grofro228
15.02.2021 16:13
Чему будет равно значение переменной х, после выполнения слудующей последовательности операторов? х : =3; y : =2; x : =(х+х)/у+у...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.