Http://on-line-teaching.com/excel/img/2007/lsn027_1.jpg
Const
n=12;
var
b:array[1..n] of integer;
i,k:integer;
begin
Randomize;
Write('Последовательность: ');
for i:=1 to n do begin
b[i]:=Random(41)+10;
Write(b[i],' ')
end;
Writeln;
k:=5;
for i:=6 to n do
if b[i]>b[i-1] then k:=i
else break;
if k=n then Writeln('Последние 8 элементов в возрастающей последовательности')
else
if k>5 then Writeln('Возрастание элементов идет с номера 5 по ',k)
else Writeln('Следующий за пятым элемент не возрастает')
end.
Пример
Последовательность: 44 10 33 40 15 33 45 26 43 45 49 48
Возрастание элементов идет с номера 5 по 7
1 мегабайт- это 0,001 гигабайта
Гигабайт в 1000 раз больше
Begin
writeln(12.89/0.22:4:3);
<span>end.</span>
Python code:
1)
<span>print("Zadacha 1")
x = float(input("Vvedite x"))
if x >= 0:
y = 7 * x - 3
print(y)
else:
y = 2 * (x * x * x)
2)
<span>print("Zadacha 2")
a = float(input("Vvedite result pervogo"))
b = float(input("Vvedite result vtorogo"))
c = float(input("Vvedite result tretego"))
if (a > b) and (a > c):
print(a)
if (b > a) and (b > c):
print(b)
if (c > a) and (c > b):
print(c)
3)
print("Zadacha nomer 3")
b = float(input("Vedite B"))
if b > 3:
b = b - 5
print(b)
else:
b = 2 * b
print(b)</span></span>
