Program t1;
const
n=20
var
i, x, s : integer;
t: string;
m1: array [1..n] of integer;
begin
s := 1;
for i := 1 to n do
begin
x := m1[i];
if (x <> 0) then s := s * x;
end;
writeln('Ответ ',s);
end;
end.
V-объем информационного сообщения
V=1024000*5=5120000(бит)=640000(байт)=626(КБайт)
<span>программа, которая обеспечивает последовательный "перевод"
команд программы на машинный язык с одновременным их исполнением</span>
Основным носителем в Египте был-папирус.
Напиши там что-нибудь например что он там вредит здоровью зрение портит излучение мдёт