Var
A,S,i,n:integer;
Begin
n:=0;
S:=0;
For i:= 1 to 5 do
Begin
Read(A);
if A mod 2 <> 0 then
Begin
S:=S+A;
n:=n+1;
WriteLn(A);
End;
End;
Write(S/n);
End.
почему бы тебе не закинуть все в одно задание?)
не первый раз тебе пишу уже)
program p_4;
var
i, n, count: word;
begin
readln(n);
count := 0;
for i := 1 to n do begin
if n mod i = 0 then inc(count)
end;
writeln(count)
end.
Для хранения одного из 32 символов требуется log(2)32 = 5 бит (2^5 = 32).
Объем переданного сообщения = 20*5*60 = 6000 байт = 6000*8 бит.
Количество переданных символов = 6000*8 / 5 = 9600
1в
2б
3в
4 B=12,A=3
5-
6-
7
8
2
7
4
1
6
5
3
дальше лень
Насчет третьего - под б) нетривиальный метод(подстановка), но я уверен, что он правильный.