Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Nastasyalook1
09.04.2023 21:40 •
Информатика
Задано значение строковой переменной. определить сколько раз буква "к" встречается в данной строке.
Показать ответ
Ответ:
Ирина8891
07.10.2020 10:43
Данная программа написана для Pascal:
var s:string;
i,k:integer;
begin
writeln('введите текст');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='к' then k:=k+1;
if k=0 then writeln('ни разу') else writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
НастюсикПоможусик
10.12.2021 10:54
Составьте программу вычисления y: y=1/корень26-x 2. даны три числа. если их сумма меньше 1, то числа удвоить....
MaМа
10.12.2021 10:54
Уваси есть доступ к интернет по высокоскоростному одностороннему радиоканалу, обеспечивающему скорость получения им информации у васи есть доступ к интернет по высокоскоростному...
friyukelizaveta
21.10.2021 22:27
Файл размером 8 кбайт передаётся через некоторое соединение за 64 секунд. определите, за сколько секунд можно передать тот же файл через соединенияе, скорость которого...
sofiakobzeva
24.11.2022 01:34
1)сколько единиц содержит двоичная запись числа 25? 1.1 2.2 3.3 4.4 2)в системе с некоторым основанием число 17 записывается как 101.укажите основание. 1.2. 2.3...
Бегемот505
24.11.2022 01:34
Вкаком году создали первый компьютер? в каком году создали первый отечественный компьютер? в каком году открыли радиосвязь? в каком году было первое упоминание в...
kartew
24.11.2022 01:34
1) напечатайте таблицу кубов чисел: -10, -8, -6, 10. 2)определите результат выполнения программы (без компьютера) begin s: =0; x: =10; repeat s: =s+x; x: =x+10;...
katya8631
24.05.2020 19:04
Приложенное напряжение 200 В, все сопротивления по 8 Ом. Найти все токи и Составить баланс ....
777ppp777
28.02.2020 04:31
Для хранения информации во время работы компьютера... варианты: 1) Флеш-память2) Магнитный диск3) Оперативная память...
Cheather
26.03.2021 07:09
пропускная скорость канала связи равна 350.000 бит/с Сколько времени займет передача файла объемом 400Мбайт?...
Шуранька
05.06.2023 21:28
Построй дерево Хаффмана для фразы:У_ПЕРЕПЕЛА_И_ПЕРЕПЕЛКИ_ПЯТЬ_ПЕРЕПЕЛЯТ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var s:string;
i,k:integer;
begin
writeln('введите текст');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='к' then k:=k+1;
if k=0 then writeln('ни разу') else writeln(k);
end.