PascalДан текст, состоящий из строчных российских букв, за которыми следует точка.

Pascal
Дан текст, состоящий из прописных русских букв, за которыми следует точка. Определить, упорядочены ли эти буковкы по алфавиту?

Задать свой вопрос
2 ответа
Var
   C,C2:char;
   i,B:integer;
Begin
B:=1;
Read(C);
C2:=C;
While C lt;gt; '.' do
   Begin
   if C2 gt; C then B:=0;
   C2:=C;
   Read(C);
   End;
Write(B lt;gt; 0)
End.
Var s: string;
      i: integer;

begin
readln(s);
for I := 2 to length(s) do
  if s[I] lt; s[I - 1] then break;
if I = length(s) then
  writeln('yes')
else
  writeln('no');
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт