Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
go0d2312
16.05.2022 21:27 •
Информатика
Кокова позиция буквы "о" в члове "слон" (решить в pascal).
Показать ответ
Ответ:
kirill23710
07.07.2020 14:53
Вот
var
s,x : string;
i,d,krot : longint;
begin
readln(s);
x:='о';
krot:=0;
d:=length(s);
for i:=1 to d do
if pos(x,s[i])<>0
then writeln(i);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Kamillami012
20.05.2023 11:09
А)1100110(2)+1011000110(2), б)101001100,101(2)+1001001100,01(2), в)165,6(16)+3e,b(16)...
Ro4KKy
20.05.2023 11:09
Vm=128 кб кодировка 16 битная 1 символ =2 байта найти количество символов в книге...
ga77
17.01.2023 09:28
Канада, бразилия, япония. общее имя...
84737263748
17.01.2023 09:28
Сообщение записано буквами 64 символьного алфавита и содержит 20 символов. какое количество оно...
сынок16
17.01.2023 09:28
Транспорт - нужен для того заранее...
13326
17.01.2023 09:28
Сообщение состоящие из 40 строк по 50 символов в каждой закодиравоно в кодах ascii и unicode. !...
wwdwd
25.01.2020 18:10
Придумать пример программы паскаля....
PoJalyusta
25.11.2021 10:47
Определите, что будет напечатано в результате работы следующей программы:Алгначцел s, ks:= 2нц для к от 1 до 7s := s*2кцвывод sкон...
meow86
15.02.2022 10:23
1.Какие из нижеприведенных предложений являются высказываниями?1.В школе изучают химию и физику.2.Электрон - элементарная частица.3.В русском языке только гласные буквы.4.Кто...
glinkirk
14.10.2020 17:34
решить ошибку в задаче по информатике(паскаль) Program z1; uses crt; var k:integer; S:longint; begin S:=1; repeat writeln ( Введите число ); readln(k); lf (k mod 100 =15) and...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
s,x : string;
i,d,krot : longint;
begin
readln(s);
x:='о';
krot:=0;
d:=length(s);
for i:=1 to d do
if pos(x,s[i])<>0
then writeln(i);
end.