Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
alkhodzhaevaka
29.07.2022 05:26 •
Информатика
Pascal abc составьте программу, которая определяет на какую букву заканчивается третье слово в предложении.
Показать ответ
Ответ:
lizaknyazeva580
11.09.2020 01:46
Var a: string;
b,c: integer;
begin
readln (a)
While c<3 do
begin
b :=b+1;
if (a[b] = (" ")) or a[b] = (" , "))
then c:=c+1;
end;
writeln (a[b-1]);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Propert
27.03.2021 02:24
Дан одномерный массив из n элементов в интервале [0,50] найти количество элементов в интервал [0,25] и количество элементов в интервал[40,50] (через процедуру)...
simpolita
16.06.2022 00:11
Зінформатики з клас на кмітливість. є три коробки , в кожній з яких три кульки, дві зелені, дві червоні й одна зелена та одна червона, але всі підписи на коробках не правильні....
sofa4565787
01.07.2022 17:34
Перевести числа в десятичную систему счисления.а8=341,а6=341...
Ороохзшрорр
03.03.2022 18:11
Написать программу на c++ дана символьная строка, представляющая собой запись натурального числа в р-ичной системе счисления (2 ≤ р ≤ 9). составить программу перевода этого...
baharaliyeva
28.06.2021 20:57
Сочинение по информатике для 5 класса по теме комп нашей жизни...
Оливия131
26.01.2023 02:32
Сканируется цветное изображение размером 10 х 10 см. разрешающая сканера _ 1200 х 1200 dpi, глубина цвета - 24 бита. какой информационный объем будет иметь полученный графический...
naystya6768oz59bt
26.01.2023 02:32
Программирование в паскаль изменить программу которая ниже так, чтобы в ней подсчитывалось и выдавалось ! ! 3 ответа, a не 3 разные программы а) количество цифр числа;...
Sasho2325
27.11.2020 07:18
Дано натуральное число. верно ли, что сумма его чисел больше k, а само число четное?...
Гриимитсичень
27.11.2020 07:18
Определить объем памяти в мегабайтах для хранения цифрового стереоаудиофайла, время звучания которого составляет 2 минуты при частоте дискретизации 36 кгц и глубине дискретизации...
идеал4а
13.08.2021 09:53
Решите) для какого значения x логическое выражение ¬((x 2)→ (x 3)) будет истинно)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
b,c: integer;
begin
readln (a)
While c<3 do
begin
b :=b+1;
if (a[b] = (" ")) or a[b] = (" , "))
then c:=c+1;
end;
writeln (a[b-1]);
end.