если в обычной кодировке, то 96 бит
подсчитай количество символов включая пробелы и умножь на 8
Program sum;
uses Crt;
Var i: integer;
sum, p, sr : real;
a : array [1..25] of real;
begin
Clrscr;
For i:=1 to 25 do
begin
write ('a[',i,']=');
readln(a[i]);
end;
sum:=0;
For i:=1 to 25 do begin
if a[i]>0 then sum:=sum+a[i];
end;
sr:=sum/25;
For i:=1 to 25 do begin
if a[i]<0 then p:=p*a[i];
end;
Writeln ('Sum=',sum:5:2);
Writeln ('p=',p:5:2);
Writeln ('Sr=',sr:5:2);
readln;
end.
На 4 не знаю
сейчас еще скину одно фото жди ))
Unicode - стандарт кодирования символов. Содержит знаки почти всех основных языков. Используется повсеместно от программ на пк до программ на смартфонах.Перспективы - будет дополняться новыми символами и буквами.
Навички
память народу
выдкриття