// PascalABC.NET 3.3, сборка 1549 от 17.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var (i,k):=(0,-1);
foreach var c in a.Cols do
if c.Where(e->e.IsEven).Count<5 then k:=i
else i+=1;
if k>=0 then begin
Writeln('*** Матрица - результат [',n,',',m+1,'] ***');
SetLength(a,n,m+1);
for var c:=a.ColCount-1 downto k+1 do
a.SetCol(c,a.Col(c-1));
a.SetCol(k+1,ArrFill(a.RowCount,0));
a.Println(4)
end
else Writeln('Нет столбцов с количеством четных элементов, меньшим 5')
end.
Пример
Количество строк в матрице: 8
Количество столбцов в матрице: 6
*** Исходная матрица [8,6] ***
38 -44 50 20 -85 -92
15 -43 43 6 -80 63
76 2 -63 32 14 -37
-78 -30 94 -45 44 -25
-74 30 15 -56 -41 -88
72 -15 -74 38 -47 -76
11 -75 -2 70 35 65
-52 -42 9 94 59 -28
------------------------
*** Матрица - результат [8,7] ***
38 -44 50 20 0 -85 -92
15 -43 43 6 0 -80 63
76 2 -63 32 0 14 -37
-78 -30 94 -45 0 44 -25
-74 30 15 -56 0 -41 -88
72 -15 -74 38 0 -47 -76
11 -75 -2 70 0 35 65
-52 -42 9 94 0 59 -28
4.
var r , S : real;
begin
writeln('Введите радиус: ');
readln(r);
S:= pi*r*r;
writeln('Площадь круга: ',S);
end.
10.
var massa, a, b, c : real;
begin
writeln('Введите массы трёх слонов: ');
readln(a,b,c);
massa:=(a+b+c)/3;
writeln('Средняя масса слона: ', massa);
end.
2) в
3)
A:=35;
B:=18;
A:=A+B; = 35+18=53
B:=A-B; = 53-18=35
A:=A-B; = 53-35=18
A=18
B=35
Ответ: г
4) а, б, г, е
5) в
2^3=8 ---> 3 бита для кодировки одного цвета
Всё изображение занимает объём памяти= 3*х,
где х - размер растрового изображения
Скорость передачи v=3x/30=x/10
после изменения кол-ва цветов их стало (3+y):
v=(3+y)*x/20; v - скорость передачи - величина постоянная
Уравнение:
(3+y)*x/20=x/10
(3+y)/2=1
(3+y)=2
y=-1
цветов стало:
3+у=3-1=2 бита для одного цвета, количество цветов =2^2=4 цвета
Было: 8 цветов
Стало 4 цвета для передачи изображения в Б
1) Жестами(человек общается с кем то с их помощью)
2) Написать(ученик показывает тетрадь учителю с дом.раб.)
3) Показать(например презентация классу)
4)Мама приносит еду и идут запахи(это запах, передача информации с помощью запаха)
5) Школьник садится за парту и он ощущает стол(тактильный способ передачи информации).