3) сбор сведений об окр.мире и протекающих в них процессах@
1.
Var a:array [1..1000] of integer;
S,i,n:integer;
begin
S:=0;
Read (n);
For i:=1 to n do
S:=S+a[i];
Writeln (S);
end.
2.
Var n,S,i:integer;
begin
S:=0;
Read (n);
For i:=1 to n do
S:=S+(1/i);
Writeln (S);
end.
3.
3 ч - 2шт
6 ч - 4шт
9 ч - 8шт
12ч - 16шт
15 18 21 умножается на 2
24ч - 256шт
Ответ:
1. Задача
2048 × 1536 × 24 =75 497 472 бит
2. Задача
Для кодирования одного из 256 цветов требуется log(2)256 = 8 бит (2^8=256). Объем изображения = 32*32*8 бит = 32*32*8 / 8 байт = 32*32 байт = 32*32 / 1024 Кбайт = 1 Кбайт
Задание №1
program z1;
const n = 3;
m =3;
var a:array[1..n, 1..m] of integer;
i,j,min:integer;
begin
//Заполним матрицу и найдем минимальное
min:=20;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(41)-20;
if a[i,j] < min then min:=a[i,j];
write(a[i,j]:4);
end;
writeln;
end;
writeln;
// меняем минимальное на 0 и выводим матрицу
for i:=1 to n do begin
for j:=1 to m do begin
if a[i,j] = min then a[i,j]:=0;
write(a[i,j]:4);
end;
writeln;
end;
end.
Тестовое решение для 1 задачи:
18 20 -10
19 -14 -17
-4 -17 -15
18 20 -10
19 -14 0
-4 0 -15
Задание №2
program z2;
const n = 3;
m =5;
var a:array[1..n, 1..m] of integer;
i,j,min:integer;
begin
//Заполним матрицу
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(41)-20;
write(a[i,j]:5);
end;
writeln;
end;
writeln;
// меняем все элементы на их квадраты и выводим матрицу
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=sqr(a[i,j]);
write(a[i,j]:5);
end;
writeln;
end;
end.
Тестовое решение для задания №2
15 8 18 -17 10
-19 17 1 20 -15
-20 -13 -11 -3 17
225 64 324 289 100
361 289 1 400 225
400 169 121 9 289