Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
hatidzemustafaeva
07.02.2020 07:21 •
Информатика
Pascal дан текст, состоящий из прописных букв, за которыми следует точка. определить, ли эти буквы по алфавиту?
Показать ответ
Ответ:
malka75
06.10.2020 11:56
Var s: string;
i: integer;
begin
readln(s);
for I := 2 to length(s) do
if s[I] < s[I - 1] then break;
if I = length(s) then
writeln('yes')
else
writeln('no');
end.
0,0
(0 оценок)
Ответ:
kamilaiks466
06.10.2020 11:56
Var
C,C2:char;
i,B:integer;
Begin
B:=1;
Read(C);
C2:=C;
While C <> '.' do
Begin
if C2 > C then B:=0;
C2:=C;
Read(C);
End;
Write(B <> 0)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
ralina27
11.04.2022 12:25
Задан целочисленный массив. Определить процентное содержание элементов, превышающих среднеарифметическое всех элементов массива на JavaScript...
54526
30.12.2020 19:51
В одномерном массиве, вводимом с клавиатуры и состоящим из 10 вещественных элементов, вычислить: 1) кол-во элементов массива, равных 0 2) сумму элементов массива, расположенных после...
Гусяра228
12.07.2020 07:05
Исполнитель Кузнечик прыгает вдоль числовой оси на заданное число делений. Система команд исполнителя Кузнечик: Вправо 5, Влево 2. В данный момент Кузнечик находится в точке 0. В...
dilayra16
14.02.2020 11:07
Написать программу ввода 30 элементов одномерного массива, введенных случайным образом....
molnij63
28.08.2021 08:55
найти учебник или еще что нибудь, гле объясняется как это решать. Ничего нормального в интернете найти не могу...
daniyanefedova563
07.07.2022 21:15
Можете перевести с c++ на паскаль...
Усенька
30.06.2020 03:48
Синтаксический разбор предложения нас дали 10минут Цветные полосы облаков растворились в ровном пламени заката. (синтаксический разбор) напишите на листочке....
ibragimabdulaev
30.06.2020 03:48
МӘТІНМЕН ЖҰМЫС ОқылыТапсырма. тут нужно прилагательные выписать из текста ЗАРАНЕЕ...
к1о2л3я4
30.06.2020 03:48
ответьте на вопросы: Что такое развлечение?Как вы проводите свободное время?Для чего людям нужно отдыхать, развлекаться?...
sdsdsgttu
30.06.2020 03:48
2.Если из одной и той же вершины провести медиану, биссектрису и высоту, то медиана окажется самым длинным отрезком, а высота — самым коротким отрезком. Выполни чертеж в тетради ....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i: integer;
begin
readln(s);
for I := 2 to length(s) do
if s[I] < s[I - 1] then break;
if I = length(s) then
writeln('yes')
else
writeln('no');
end.
C,C2:char;
i,B:integer;
Begin
B:=1;
Read(C);
C2:=C;
While C <> '.' do
Begin
if C2 > C then B:=0;
C2:=C;
Read(C);
End;
Write(B <> 0)
End.