Вариант номер 1:
program c1ba;
var a:byte;
p:real;
begin
p:=10;
a:=1;
repeat begin
p:=p+(p/10);
a:=a+1;
end;
until p>=20;
writeln('a=',a);
<span>end.
Вариант номер 2:
program c1ba;
var a:byte;
p:real;
begin
p:=10;
a:=1;
while p<=20 do begin
p:=p+(p/10);
a:=a+1;
end;
writeln('a=',a);
<span>end.</span></span>
Ответ:
010101010+01010=10110100 (двоичная система счисления)
Делим нацело на 8, выделяем остатки:
1112 : 8=139 остаток 0
139 : 8=17 остаток 3
17:8 = 2 остаток 1 число собираем с последнего частного и далее -
все остатки от деления 2130
Проверка:
2130= 2*8^3+1*8^2+3*8=1112
и далее - аналогично
Информационный объем(I) можно определить как произведение скорости(v) на время(t)
Дано: v=256000 бит/с
t=2 мин =120 c
Найти: I
Решение
I = v*t =256000 бит/с * 120 с =30720000 бит =(делим на 8) =3840000 байт=(делим на 1024)=3750 Кбайт Ответ: 3750 Кбайт
Не советую. У меня 13 основная. Это норм. Фронтальная 5.