Pascal

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

Question

Информатика

Ярославка

17 февраля, 20:12

Pascal

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

+4

Ответы (2)

Знаете ответ?

Ионична · Answer 1

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.

Гали · Answer 2

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.

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

Pascal

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