Ответ под цифрой 4. Изначально следует посчитать количество символов, включая пробелы, цифры и знаки препинания. Это значения K. Вес одного символа обозначается буквой i и равен 16 бит. И по формуле I=K*i узнаём:
32*16=512(бит). Следует так же обратить внимание на единицы измерения
Алфавит будет 19+10=29 символов, вес 1 символа 29=2^i,i=<span><span>4,86</span></span>≈<span><span>5 бит
На один номер надо 5*6=30 бит, округлим до 32 бит, чтобы перевести в байты. 32/8=4 байта на 1 номер.
Ответ 4*40=160 байт.</span></span>
Var
n: integer;
begin
readln(n);
writeln(n mod 7 = 0);
end.
1) Первое задание:
var a: integer;
begin
write ('Введите число: ');
readln (a);
if (a mod 2 = 0) then
writeln ('Четное число')
else writeln ('Не четное');
readln;
end.
2) Второе задание:
program test;
var a: integer;
begin
write ('Введите число: ');
readln (a);
if a > 0 then
a:= a + 1;
if a < 0 then
a:= a - 2;
if a = 0 then
a:= 10;
writeln (a);
end.
Код не мой, не знаю, на счет правильности,
Var S: real;
x: Array [1..5] of Real;
y: Array [1..5] of Real;
z: Array [1..5] of Real;
i,n,m: Integer;
{процедура вычисления площади треугольника}
procedure plosh(x_1,y_1,z_1,x_2,y_2,z_2,x_3,y_3,z_3:real);
var
a,b,c,p,t:real;
begin
a:=sqrt(sqr(y_2-y_3)+sqr(x_2-x_3)+sqr(z_2-z_3));
b:=sqrt(sqr(y_1-y_3)+sqr(x_1-x_3)+sqr(z_1-z_3));
c:=sqrt(sqr(y_1-y_2)+sqr(x_1-x_2)+sqr(z_1-z_2));
p:=(a+b+c)/2;
t:=p*sqrt((p-a)*(p-b)*(p-c));
end;
{заносим в массив координаты вершин}
for i:=1 to 5 do
begin
if i:=1 or 5 then
begin
write('X',i,' -> '); readln(x[i]);
write('Y',i,' -> '); readln(y[i]);
write('Z',i,' -> '); readln(z[i]);
end;
else
begin
write('X',i,' -> '); readln(x[i]);
write('Y',i,' -> '); readln(y[i]);
z[i]:=z[1]
writeln;
end;
end;
end;
{начинаем перебор всех вариантов сочетания вершин, создающих треугольник}
for i:=1 to 5 do
for n:=1 to 5 do
for m:=1 to 5 do
begin
if ((i<>n) and ((n<>m) and (i<>m))) then
begin
plosh(x[i],y[i],z[i],x[n],y[n],z[n],x[m],y[m],z[m]);
end;
<span> end;</span>
