Попробуй так:
var P,a,b,c: integer;
readln(a);
readln(b);
readln(c);
P:= a+b+c;
writeln(' P=',P);
end.
В моей семье используется компьютер для папы мамы и для меня папа занимается в нем о важных вещах мама может работает а может играет а я люблю пиреписываться с друзьями играть в игры и тд.
Ответ:
1) 375 байт * 8 = 3000 бит - объем этого сообщения
2) 3000 бит / 500 = 6 бит информационный вес каждого символа в этом сообщении.
3) N = 2^i
N = 2^6 = 64 символа в этом алфавите (мощность этого алфавита)
Подробнее - на Znanija.com - znanija.com/task/2943377#readmore
Объяснение:
Const
n=10;
var
a:array[1..n]of integer;
i,j,buf:integer;
begin
for i:=1 to n do
begin
a[i]:=random(3);
write(a[i]:4);
end;
{сортирую по возрастанию}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j]then
begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
end;
{пересылаю нули в конец масива}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]=0 then
begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
end;
for i:=1 to n do
write(a[i]:4);
end.