ВТОРАЯ
var p,s:real;
i:integer;
begin
s:=2;
for i:=1 to 5 do
begin
p:=p+1/s;
s:=s+2;
end;
writeln('Р равно ',p:0:6);
end.
ПЕРВАЯ
var sum,x,i:integer;
begin
write('x= ');
read(x);
for i:=10 to 99 do
sum:=x+i+sum;
writeln('Сумма равна ',sum);
<span>end.</span>
Преимущества:
намного быстрее
множно отправить сообщение не выходя из дома
не нужно ждать долгой отправки
2)С одним паролем могут,с одним именем нет
3
Какое задание? Тогда я Смогу помочь.
3 бита, ибо 8=2^3
еслиб было 7 букв, тоже 3 бита было бы. А вот если 3 буквы, то уже 2 бита