Pascal ABC/Написать функцию принимающую значение True, если буквы строки упорядочены по алфавитуfunction Test(word:string): boolean
Pascal ABC/Написать функцию принимающую значение True, если буквы строки упорядочены по алфавиту
function Test(word:string): boolean
Гость
Ответ(ы) на вопрос:
Гостьprogram D1KPxx8;
uses crt;
var
s,b:string;
c:boolean;
i,k,n:integer;
begin
c:=false;
s:='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюя';
read(b);
k:=0;
repeat
inc(k);
begin
if s[k]=b[1] then
begin
break;
end;
end;
until k>length(s);
n:=length(b);
for i:=1 to n do
begin
if s[k]=b[i] then
begin
c:=true;
end
else c:=false;
inc(k);
end;
write(c);
if c=true then
halt
else
if c=false then
halt;
writeln('false');
end.
Не нашли ответ?
Похожие вопросы