Var
x, x1: integer;
BreakLoop, NonDescending: Boolean;
begin
writeln('Вводите числовую последовательность');
read(x);
read(x1);
NonDescending := (x1 >= x);
repeat
read(x);
if x <> 0 then
if NonDescending then BreakLoop := (x < x1)
else BreakLoop := (x > x1);
x1 := x
until BreakLoop or (x = 0);
if BreakLoop then writeln(#13#10, 'Последовательность неупорядочена')
else
if NonDescending then writeln(#13#10, 'Последовательность неубывающая')
else writeln(#13#10, 'Последовательность невозрастающая')
end.
Тестовое решение
Вводите числовую последовательность
7
12
12
18
34
0
Последовательность неубывающая
Var
a: array[1..6]of integer;
i,m: integer;
begin
for i:=1 to 6 do
read(a[i]);
writeln(' ');
For i:=2 to 6 do
if (a[i]<0) and ((i mod 2) =0) then
for m:=i downto 2 do
swap(a[m],a[m-1]); for i:=1 to 6 do
write(a[i]:2);
<span>end.
abc pascal</span>
// 30° = π/6, 60° = π/3
Program goldobin5;
uses crt;
begin
clrscr;
writeln('Y=',(sqrt(sin(pi/6))+sqrt(abs(32-6*8)))/(sqr(sqr(sin(pi/3)))));
end.
Результат:
Y= 8.368189833220529e+00
Налить в 5литровую банку воды, перелить из нее в 2литровую, отсанется 3 литра, и ещё раз перелить в 2литровую, останется 1 литр