Pascal

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

Question

Информатика

Апфия

8 января, 13:33

Pascal

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

+1

Ответы (2)

Знаете ответ на вопрос?

Борюня · Answer 1

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.

Леония · Answer 2

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.

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

Pascal

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