5)
program gt5;
var n,k:integer;
begin
k:=0;
while n>0 do
begin
n:=n div 10;
k:=k+1;
end;
writeln(k);
end.
3)
program gt3;
var s,i:integer;
begin
s:=0;
for i:=1 to 100 do
begin
if(i mod 2=0)then s:=s+i;
end;
writeln(s);
end.
2)
program gt2;
var k,i:integer;
begin
k:=0;
for i:=11 to 20 do
begin
if(i mod 2=1)then k:=k+1;
end;
writeln(k);
end.
1)
program gt1;
var x,y:real;
begin
x:=-3.1;
while x<1 do
begin
x:=x+0.1;
y:=<span>4*x*x*x-2*x*x+5;
writeln(y);
end;
end.
про 4 я не понял поэтому не смог решит</span>
1. 0,7 м/б =0,00068359375 г/б
<span>2) Сколько Мбайт в 2 Гбайт = 2000 м/б
</span>
3) 1 Кбайт = __1024_ байт = __8192____бит,
4) 2 Кбайт = _2048____ байт =__16384____бит,
5) 24576 бит =__3072___байт =__3___Кбайт,
6) 512 Кбайт = __524288_ байт =___4194304__бит.
7) 1024 бита =__128__байт
8) 2048000 бит = __2000___Кб
9) 15 Кб = _15360___бит
10) 10 байт = __80__бит
При использовании 16777216 цветов для хранения одного пикселя необходимо log(2)16777216 = 24 бита. (2^24 = 16777216)
Тут две ошибки. Первая - синтаксическая, в строке 11) первый апостроф (после открывающей скобки) неверный, это обратный апостроф, а не прямой.
Вторая ошибка алгоритмическая, в операторе 8 нужно присвоить переменной не ноль, а единицу. Ноль мы присваиваем для вычисления сумм, а для произведений надо присваивать единицу.