Var
S:real;
n:integer;
Begin
S:=0;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
S:=S+n/(n+1);
WriteLn('S = ',S)
End.
Прислів"я.
Більше діла - менше слів.
Маленька праця краще за велике безділля.
Праця чоловіка годує, а лінь марнує.
Хочеш більше знати-треба менше спати.
N=2^i
V=i*k
1)N=17 => i>4(2^4=16) i=5
k=100
v1=32*100=3200бит
2)N=32 => i=5
k=50
v2=32*50=1600бит
Ответ:Мульти передали в 2 раза больше информации чем пульти
Текстовый файл (формата: .txt)
Инструкция
1150
M-1000
C-100
L-50
Вот так вот думаю получается легкий вопрос