Види відображень документу в microsoft word 2003

Question

Информатика: Види відображень документу в microsoft word 2003

1Kotejka1 · Accepted Answer

var

n, i: Integer;

s: string;

isu: Boolean;

begin

Write ('Введите число: ');

Read (n);

if (n >= 1000) and (n <= 9999) then

WriteLn ('Это число четырехзначное')

else

WriteLn ('Это число не четырехзначное');

s := IntToStr (n);

isu := True;

for i := 1 to Length (s) - 1 do begin

if s [i] <= s [i + 1] then begin

isu := False;

Break;

end;

WriteLn;

if Isu then

WriteLn ('Цифры расположены в порядке убывания')

else

WriteLn ('Цифры НЕ расположены в порядке убывания');

end.