Вопрос по информатике:
Pascal
Дан текст, состоящий из прописных русских букв, за которыми следует точка. Определить, упорядочены ли эти буквы по алфавиту?
Пожаловаться
- 20.12.2017 05:43
- Информатика
- remove_red_eye 2685
- thumb_up 21
Ответы и объяснения 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.
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.
Пожаловаться
- 21.12.2017 17:25
- thumb_up 3
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.
Пожаловаться
- 22.12.2017 22:25
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы