Pascal
Дан текст, состоящий из прописных русских букв, за которыми следует точка. Определить, упорядочены ли эти буквы по алфавиту?
Ответы
Ответ дал:
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.
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.
Ответ дал:
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.
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.
Похожие вопросы
1 год назад
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад