Const
N = 13;
Var
A:array[1..N] of integer;
i:integer;
Begin
Randomize;
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ')
End;
WriteLn;
i:=1;
While i <= N do
Begin
Write(A[i],' ');
i:=i+2;
End;
WriteLn;
i:=2;
While i <= N do
Begin
Write(A[i],' ');
i:=i+2;
End;
End.
Var a,b:real;
begin
write('Введите а и b: ');
readln(a,b);
if b=0 then
writeln('На ноль делить нельзя!')
else writeln('a/b=',a/b);
<span>end. </span>
Program P1;
var l,r,a,b:real;
begin
readln(l,a,b);
r:=l/(2*pi);
if a*a+b*b<r*r then writeln('YES')
else writeln('NO');
end.
Пример:
20 3 4
NO
9 бит больше!!!!!!!!!!!!!!!!!
1. 16 бит симв * 10 * 32 * 48 = 245760 бит / 8 / 1024 = 30 кбайт
2. <span>Тише едешь – дальше будешь. = 27 симв * 2 байт симв = 54 байт
3. 5 кбайт * 1024 * 8 = </span>40960 бит; 8 * 1024 = 8192; 40960 бит / 8192 симв = = 5 бит на символ; 2^5 = 32 символов содержит алфавит.
4. первый (ln(256)/ln(2)) / (ln(64)/ln(2)) = 1,3 раза больше первый второго.
5. iso=1 байт симв; unicode=2 байт симв; 2 кбайт / (2/1) = 1 кбайт вес будет
6. <span>Как мало прожито – как много пережито! = 38 симв; 38 * 1 байт = 38 байт
7. будет тот же самый "computer". Значит и последовательность десятичных цифр та же самая копия.
8. Будет l i n k
</span>