Дано натуральное число. Установить является ли последовательность его цифр при п...

August 2022 1 37 Report

Дано натуральное число. Установить является ли последовательность его цифр при просмотре их слева направо упорядоченной по неубыванию. Например, для чисел 5321 и 9663 ответ положительный , для чисел 7820 и 9663 отрицательный и т.п.
Написать программу на паскале, не используя массивы, boolean

Answers & Comments

srzontmp Var s: string;
begin
write('число: '); readln(s);
if s=s.Sorted.Reverse.JoinIntoString('') then
writeln('упорядочено по неубыванию')
else writeln('НЕ упорядочено');
end.

2 votes Thanks 1

srzontmp нужно заменить строку writeln('упорядочено по неубыванию'); на writeln('упорядочено по невозрастанию'); если нужно по неубыванию, то изменяется строка if s=s.Sorted.JoinIntoString('') then

Answers & Comments

reshite uravnenie proshu podrobno s odz 40 ballov

issledujte funkciyu na monotonnost i najdite tochki ekstremuma pozhalujsta prosh

reshit uravnenie pozhalujsta proshu podrobno s odz poetomu i mnogo ballov dayu

nuzhno reshit neravenstvo pozhalujsta podrobno s odz dayu 70 ballov zaranee o

nuzhno reshit neravenstvo pozhalujsta podrobno s odz dayu 60 ballov zaranee s

nuzhno reshit neravenstvo pozhalujsta podrobno s odz dayu 70 ballov zaranee s

reshite uravnenie pozhalujsta podrobno dayu 70 ballov

zadanie vychislit proshu vas pomoch tolko podrobnoe reshenie 30 ballov

reshit uravnenie na mnozhestve kompleksnyh chisel z4 40 proverte reshenie ne zn

pomogite pozhalujsta sdelat zadanie s podrobnym resheniem dayu 66 ballov

рекомендуемые вопросы

Helpful Links

Helpful Social