1. дано объем текста =3,5 Кб=3584 байта
в компьютерный тексте 1 символ кодируется 1 байтом
значит в тексте 3584 символа
1)347 из десятичной равно 101011011 в двоичной, 533 в 8 и 15В в 16
2) 1110001100 : 908 в 10,
230: 152 в 10
3)255+156 = 433 в 8
1001 - 10 = 111 в 2
INPUT "N="; N
FOR I = 1 TO N
S = S + 1 / (2 * I - 1)
NEXT I
<span>PRINT "S="; S</span>
Var
i, sum: integer;
begin
sum := 0;
i := 5;
repeat
sum := sum + i * i;
i := i + 1;
until(i > 10);
write(sum);
end.
var
a: array[1..50] of integer;
i,f, n: integer;
begin
write('n=');
readln(n);
for i := 1 to n do
begin
write('a', i, '=');
readln(a[i]);
end;
f := 0;
writeln;
for i := 1 to n - 1 do
if (a[i] mod 2 <> 0) and (a[i + 1] mod 2 = 0) then f := 1;
if f = 0 then
begin
for i := 1 to n do
if a[i] < 0 then write(a[i]:4);
end
else
for i := 1 to n do
if a[i] > 0 then write(a[i]:4);
end.