Циклы.

[hewlett]

1. Дано натуральное число n. Определить, образуют ли все цифры числа убывающую последовательность.
2. Вычислить сумму ряда с погрешностью ε=0,0001 для заданного числа x, лежащего в интервале (-∞,∞). Сравните результаты с точным значением функции, для которой сумма определяет приближенное значение: chx= 1+x^2/2!+x^4/4!+x^6/6!+ …
3. Вычислить: 1/(1+1/(3+1/(5+1/)))...101+1/103.

[Arigato]

А что требуется от нас?

[Chudo4258]

1

program Project2;
var n,m,mp:integer;
     p:boolean;
begin
readln(n);
p:=true;
mp:=n mod 10;
n:=n div 10;
While n<>0 do
 begin
  m:=n mod 10;
  n:=n div 10;
  if mp>m then p:=false;
  mp:=m;
 end;
writeln(p);
readln;
end.

или так

program Project2;
var S:string;
    i:integer;
    p:boolean;
begin
readln(i);
S:=IntToStr(i);
p:=true;
for i:=1 to length(s)-1 do
 if s[i]<s[i+1] then p:=false;
Writeln(p);
readln
end.

или чтобы зря цикл не гонять можно так

program Project2;
var S:string;
    i:integer;
    p:boolean;
begin
readln(i);
S:=IntToStr(i);
p:=true;
for i:=1 to length(s)-1 do
 if s[i]<s[i+1] then begin
                      p:=false;
                      break;
                     end;
Writeln(p);
readln
end.

Выбирай!!!

Вместо

S:=IntToStr(i);

можешь вписать

Str(i,S);

Вместо

Writeln(p);

можешь вписать

if p then Writeln('Yes')
             else Writeln('No');