Для того, чтобы последовательность была возрастающей, для каждого очередного элемента new и предыдущего old должно выполняться условие new > old. Любое нарушение данного условия приводит к тому, что последовательность не может быть возрастающей.
Program Sequence;
var old, new : real;
f : boolean;
begin write('Введите x='); readln(old); write('Введите x='); readln(new); f:=true; repeat if new<=old then f:=false; old:=new; write('Введите x='); readln(new); until new=0; if f then writeln( 'Последовательность возрастающая') else writeln( 'Последовательность не является возрастающей'); end.
А вот так понятнее: 1001110= 1) проставь над каждой цифрой числа справо на лево двойки со степенями т.о. чтобы над первым нулем (справа) стояла 2 в нулевой степени, над единицей - 2 в первой степени, над следующей единицей - 2 во второй степени, и т.д. Т.О над последней единицей (слево) будет 2 в седьмой степени. а теперь смотри как получается число в десятичной: надо сложить произведения этиз двоек на те числа, которые стоят под ними соответственно. итак: 1001110=2в шестой* 1+2в пятой*0+2 в четвертой*0+2 в третьей*1+2 во второй*1+2 впервой*1+2 в нулевой*0 = 64+8+4+2=78
Для того, чтобы последовательность была возрастающей, для каждого очередного элемента new и предыдущего old должно выполняться условие new > old. Любое нарушение данного условия приводит к тому, что последовательность не может быть возрастающей.
Program Sequence;
var old, new : real;
f : boolean;
beginwrite('Введите x=');
readln(old);
write('Введите x=');
readln(new);
f:=true;
repeat if new<=old then f:=false;
old:=new;
write('Введите x=');
readln(new);
until new=0;
if f then writeln( 'Последовательность возрастающая')
else writeln( 'Последовательность не является возрастающей');
end.