Информатика, опубликовано 2018-08-22 19:27:07 by Гость
Ввести целое число и определить верно ли что все его цифры расположены в порядке возрастания
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на