Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
петро26
29.07.2022 07:39 •
Информатика
Решить в turbo pascal. : поиск букв в слове. напишите программу для проверки, есть ли в данном слове буква «а». если есть, то найдите номер первой из них.
Показать ответ
Ответ:
annachernaya04ow7wxu
08.10.2020 04:12
Beginvar a:string;var i:integer;read(a);for i:=1 to length(a) dobegin if a[i] = 'a' thenbeginwriteln('Найдена буква а, ее позиция: ' , i);break;end;end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Михона
10.02.2022 21:40
Из ниже перечисленных скриптов укажите команды ВЕТВЛЕНИЯ используемые в игровой среде программирования Scratch. Поставьте галочку только под командами ветвления...
ник5045
31.08.2021 22:54
1.Исправьте ошибки :1)Button1 : Caption=Выход 2)Label1 := Я программирую...
01029283736463637
25.12.2022 06:31
Определить какое значение будет принимать переменнаz y после выполнения фрагментов программы var x,y: integer ; begin y: =0 ; for x: =1 to 9 do y: =y+1 ; writeln(`y=` , y ) end до...
Zemskikh
30.01.2023 16:59
Matlab. Довольно необычное задание. Я хочу добавить в графический интерфейс график функции. (файлы с кодом во вложении) Этот график должен показывать изменение ЭДС генератора заданного...
вжик82
25.09.2022 11:57
Определите значение переменной s после выполнения фрагмента алгоритма...
Sovka123323
02.06.2022 17:18
Компьютерде орындайық Берілген есептердің қойылымын анықтаңдар: 1. Банкке 3% салыммен S теңге салынды. N жылдан кейін салым қанша болады? 2. Пернетақтадан жүппен 10 сан енгізіңдер....
денчик298
22.03.2023 09:54
Дана строка (прочитать из файла). удалить из неё все знаки препинания (. ; : , ! результат вывести на экран....
Мастер008
14.02.2021 18:44
Впиши пропущені букви і розкажи .для чого призначена ця програма к_ _ь_ _ _ _т_р...
salihvalishev
14.02.2021 18:44
Дано три пятёрки 5 5 5=1 надо поставить любые знаки чтобы получилось единица...
alexandrvseznaika
13.01.2022 06:06
Y=cos(2x)*sin^3 (x) найти производную...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
end.