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;
end;
WriteLn;
if Isu then
WriteLn ('Цифры расположены в порядке убывания')
else
WriteLn ('Цифры НЕ расположены в порядке убывания');
end.
ответ: Python (найчастіше вживане прочитання — «Па́йтон», запозичено назву[7] з британського шоу Монті Пайтон) — інтерпретована об'єктно-орієнтована мова програмування високого рівня зі строгою динамічною типізацією.[8] Розроблена в 1990 році Гвідо ван Россумом. Структури даних високого рівня разом із динамічною семантикою та динамічним зв'язуванням роблять її привабливою для швидкої розробки програм, а також як засіб поєднування наявних компонентів. Python підтримує модулі та пакети модулів, що сприяє модульності та повторному використанню коду. Інтерпретатор Python та стандартні бібліотеки доступні як у скомпільованій, так і у вихідній формі на всіх основних платформах. В мові програмування Python підтримується кілька парадигм програмування, зокрема: об'єктно-орієнтована, процедурна, функціональна та аспектно-орієнтована.
Объяснение: