Всё просто
Скоко бит один символ?
2^i=128
Это хорошо, тут подходит ровно i=7 бит
7*80=560 бит
<span>const
N = 20;
var
A : array [1..N] of Integer;
Pos, Sum, Znak : Integer;
begin
Write('Массив: ');
Randomize;
for Pos := 1 to N do
begin
A[Pos] := Random(101) - 50;
Write(A[Pos]:4);
end;
WriteLn;
for Pos := 1 to N div 2 do Sum := Sum + A[Pos] -A[N div 2 + Pos];
WriteLn('Разность между суммой 1-й половины и 2-й = ', Sum);
end. </span>
(t - время передачи, I - объем данных, v - скорость передачи)
Дано:
t = 46 c
v = 256000 бит/с
I - ?
Решение:
бит
11776000.0 бит = 1472000.0 байт = 1437.5 Кбайт
Решение тут простое, а вот как оформить...наверно блок-схему имеет смысл нарисовать.
Число a - любое натуральное, число b - натуральное четное, т.е. b=2k, где k - любое натуральное число.
Легко видеть, что по результатам шестого шага алгоритма получилось число k. Но мы полагали, что b=2k, поэтому Бим удваивает сообщенное ему число и получает b.
Примеры решений:
1. A=37, B=18
3) 37*2=74 4) 74+18=92 5) 92/2=46 6) 46-37=9 и теперь 9*2=18=B
2. A=4, B=2
3) 4*2=8 4) 8+2=10 5) 10/2=5 6) 5-4=1 и теперь 1*2=2=B
3. A=12345, B=222
3) 12345*2=24690 4) 24690+222=24912 5) 24912/2=12456 6) 12456-12345=111 и теперь 111*2=222=B
Var
number, day, month: integer;
begin
writeln('Напишите день');
readln(number);
day := (number mod 30);
month := (number div 30);
writeln(day, '.', month);
end.