Готовые дипломные, курсовые, рефераты. Вы можете бес-платно скачать любую понравившуюся работу.
ГОТОВЫЕ РАБОТЫ
ПОХОЖИЕ ВОПРОСЫ
Сегодня примерно в 13:46 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.
Ввести целое число и определить верно ли что все его цифры расположены в порядке возрастания
Среди нашей команды есть эксперты, которые успешно отвечают на вопросы из рубрики "Информатика". Напомним, что вы задали следующий вопрос:
Ввести целое число и определить верно ли что все его цифры расположены в порядке возрастания
И сразу же ответим на него:
После проведенного совещания с другими специалистами нашего сервиса, мы склонны пола-гать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:
Uses crt;
const n=8;
var a:integer;
b:array[1..n] of integer;
i,k,t:integer;
begin
readln(a);
k:=1;
repeat
for i:=k to k do
b[i]:=a mod 10;
a:=a div 10;
inc(k);
until a=0;
t:=0;
for i:=k-1 downto 2 do
if (b[i]>b[i-1]) then inc(t);
if t=0 then writeln('yes') else writeln('no');
end.