Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
priss666
11.08.2022 11:05 •
Информатика
Впаскале выдать на экран все номера позиций , на которых встречается буква "к" ))
Показать ответ
Ответ:
artemkovalev1
02.10.2020 03:01
Var s: string;
i:integer;
begin
write('Введите текст: ');
readln (s);
for i:=1 to length(s) do
if s[i]='к' then write (i,' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ALexus67
18.09.2020 08:56
Пете нужно оклеить обоями стену размером N метров в высоту и M метров в ширину. Для поклейки используются обои, которые продаются рулонами. Каждый рулон имеет ширину...
вєлтикнадрей
06.06.2021 19:38
Используя оператор while и for решите задачи(2-мя ) 1) Найти сумму ряда чисел от 1 до 100. Полученный результат вывести на экран 2) Найти среднее арифметическое всех...
mokajuma77
28.05.2020 04:53
Дано двузначное число. Определить: какая из его цифр больше: первая или вторая а также одинаковы ли его цифры....
Indira9786876
11.10.2020 13:24
Найти значение выражения , где n! означает факториал числа n ( n != 1*2*3*…*n. ). (Определить функцию для расчета факториала натурального числа.) нужно написать код...
JesperWecksell
24.03.2023 08:18
На отрезке [0;2] с шагом 0,2 протабулировать функцию и построить график этой функции. Алгоритм выполнения задания: 1. В ячейке А1 ввести название аргумента Х. 2. В...
Evgenchee
03.08.2021 06:03
«В рулетке общее количество лунок равно 64 какое количество информации(с точки зрения вероятностного подхода) вы получите в сообщении об остановке шарика в одной из...
8479
05.02.2021 01:27
Ученику предложено задание (тест) из 20 вопросов. Оценка 5 ставится за 100 % правильных ответов, 4 - за 75% и более, 3 - за 50% и более. Меньшее число правильных ответов...
Ученикdsgfgchugffwgc
15.09.2022 07:32
Нужно перевести из одной системы счисления в другую 36 в десятой перевести в двоичную 197 в десятой перевести в двоичную 1000002 двоичных перевести в восьмые 327 десятых...
шрвлап
15.09.2022 07:32
Звук длительностью 2 минуты оцифрован с частотой 11000 гц. глубина кодирования - 22 бита. определите размер полученного файла в мбайтах. результат округлите до двух...
Jordanik4456
29.05.2020 05:37
Вы проводите информационный поиск в ходе выполнения проектной работы. Определите, в каком из текстов A–F содержатся ответы на интересующие Вас во Один из во останется...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i:integer;
begin
write('Введите текст: ');
readln (s);
for i:=1 to length(s) do
if s[i]='к' then write (i,' ');
end.