1)1100
2)11001
3)100000
4)110000
5)1100000
6)10011101
7)100000000
8)111111111
Var
i, k, c, tetka1, tetka2: integer;
begin
readln(k);
readln(c);
tetka1 := 0;
tetka2 := 0;
for i:=1 to 3*60 do
begin
inc(tetka1, k);
inc(tetka2, c);
end;
if tetka1 > tetka2 then
writeln('Первая тётка говорит больше на ', tetka1 - tetka2, ' слов')
else
if tetka1 < tetka2 then
writeln('Вторая тётка говорит больше на ', tetka2 - tetka1, ' слов')
else
writeln('Обе тётки болтают с одинаковой эффективностью');
<span>end.</span>
Дано:
m₁= 100 кбайт = 102400 байт = 819200 бит
V₁= 1536 бит в сек
V₂=768 бит в сек
Найти: m₂
Решение:
819200 / 1536 * 768 = 409600 бит = 51200 байт = 50 кбайт
Ответ: 50
100×6=600 бит (информационный объём сообщения)
Ответ:600 бит
Var a:integer;
begin
read(a);
if a>0 then a:= sqr(a)
else write('число отрицательное');
end.