Курсовой информации не бывает
Program z1;
var i,n:integer;
a:array [1..100] of integer;
begin
readln (n);
for i:= 1 to 4 do
begin
readln (A[I] );
end;
for i := 1 to 4 do
begin
If A [i] > n then writeln (A [i]);
end;readln;end.
В информатике abs - модуль, если тебе это
128=7 бит
7*145=1015 бит
1015/8=126 байт
Вроде так
По формуле или
(N - мощность алфавита, i - вес одного символа)
Вес одного символа бит (округляем в большую сторону так как кусками тут быть не может)
Вес одного символа бит (округляем в большую сторону так как кусками тут быть не может)
10 / 6 = 1.6666666666666667 раз