Опал шар гнать да вы же по апр до акт подвал да во
uses crt;
var a,b,c,d,ch:integer; sr:real;
begin
readln(ch);
a:= ch div 1000;
b:= ( ch div 100) mod 10;
c:= ( ch div 10) mod 10;
d:=ch mod 10;
if ch mod 2 = 0 then
writeln((a+b+c+d)/4)
else
writeln(sqr(a),' ',sqr(b),' ',sqr(c),' ',sqr(d));
readln;
end.
N = 2^i ; N - мощность алфавита, i-количество битов в одном символе.
64 = 2^6 ; один символ весит 6 бит.
250с/м*40м = 10000 символов за 40 минут.
10000*6=60000 бит.
60000/8 = 7500 байт / 1024 = 7.324кБ.
1) 0.25 * 1024 = 256
Ответ: 256 байт