Ребенок знает 32 букв алфавита. Если он за минуту говорит фразу, содержащую <span>30 букв, определите скорость передачи информации ребенка в бит/с.
</span>32=2^6 ⇒ на каждый символ 6 бит
30*6=180 бит - объем фразы ребенка
1 минута =30 сек
180/30=6 бит/сек
<span>1) H:\Школа\Задания\Математика
Решение:
</span><span>H:\Школа\Андрей
Поднимаемся вверх и получаем
</span><span>H:\Школа
</span>Спускаем вниз в каталог "Задания"
H:\Школа\<span>Задания
</span>Спускаем вниз в каталог "Математика<span>"
</span>H:\Школа\Задания\Математика
№8:
var
matr: array [1..5,1..5] of integer;
arr: array[1..5] of real;
begin
for var i:=1 to 5 do
begin
for var j:=1 to 5 do
begin
matr[i,j]:=Random(10);
write(matr[i,j]:3);
end;
writeln;
end;
writeln;
for var i:=1 to 5 do
begin
for var j:=1 to 5 do
arr[i]:=arr[i]+matr[j,i];
arr[i]:=arr[i]/5;
end;
writeln(arr);
<span>end.
в остальных так же, только в последнем цикле другие вычисления (в зависимости от условий задачи)</span>
<span>Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников.</span>
Program Triangles;
var a1,b1,c1,a2,b2,c2: integer;
begin
writeln('Введите стороны первого треугольника.');
read(a1,b1,c1);
writeln('Введите стороны второго треугольника, соответственно сторонам первого.');
read(a2,b2,c2);
if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('Да, треугольники равны.')
else writeln('Нет, треугольники не равны.');
end.