Мы заметили закономерность- с каждым днем кол-во ряски увеличивается в 2 раза.30 июня ряска покрыла всю поверхность озера ===> половина озера была покрыта ряской 29 июня.
Windows диск
Команды мыши
Меню пуск
Подменю панели задач
Окно команды
Полосы прокрутки
1)
var x,s:real;
begin
readln(x);
s:=cos(x) - sin(x) + abs(x-7) + x*x - 1;
writeln (s)
<span>end.
2)
var x,y,s:real;
begin
readln(x,y);
s:=(x+y)/2;
writeln(s)
<span>end.
3)
var x,y:real;
begin
readln(x);
if x<0 then y:=x*x-5;
if x=0 then y:=3;
if x>0 then y:=x-3;
writeln(y)
<span>end.</span></span></span>
Находим сколько бит нужно для кодировки 65356 цветов. нужно 16 бит. так как 2¹⁶=65536. 16*800*600=7680000 бит. и находим время
7680000 / 25600= 300 с
Const
N = 5;
var
i: integer;
a: array[1..N * 2 + 1] of integer;
begin
writeln('Исходный массив: ');
for i := 1 to 2 * N do
begin
a[i] := Random(99) + 1;
write(a[i] : 5);
end;
for i := 2 * N + 1 downto N + 1 do
a[i] := a[i - 1];
a[N + 1] := 0;
writeln();
writeln('Полученный массив: ');
for i := 1 to 2 * N + 1 do
write(a[i] : 5);
end.