Var a,b,c:array[1..9] of Longint;
i,k:longint;
begin
for i:=1 to 9 do
begin
read(a[i]);
end;
for i:=1 to 9 do
begin
read(b[i]);
end;
for i:=1 to 9 do
begin
c[i]:=a[i]+b[i];
write(c[i],' ');
end;
<span>end.</span>
Размер файла = 4 (кол-во каналов) * 48 000 ГЦ (частота) * 24 (разрешение) * 60 (время) = 276 480 000 Бит = 34 560 000 Байт = 33 750 КБайт = 32.9 МБайт.
Ответ:
5 бит, 32 символа
Объяснение:
Вычислим количество символов в сообщении.
6 * 40 * 60 = 14400
Вес сообщения: 9000 байт = 9000*8 бит = 72000 бит
Значит, на один символ приходится 72000 / 14400 бит = 5 бит.
Количество символов в алфавите равно .
Var
x,y,z:real;
begin
writeln('Введите три числа');
read(x,y,z);
If (x>z) and (x>y) then
writeln('Наибольшее= ',x);
If (y>z) and (y>x) then
writeln('Наибольшее= ',y);
If (z>x) and (z>y) then
writeln('Наибольшее= ',z);
If (z=y) and (y=x) then writeln('Все числа одинаковые') else
begin
If (z=x) then writeln('числа x и z равны');
If (y=x) then writeln('числа x и y равны');
If (z=y) then writeln('числа y и z равны');
end.
end.