Количество символов опр. так: 2^3=8
Var a,b,c,s,n,i:integer;
begin
readln(n);
b:=1;
for i:=1 to n do
begin
c:=b+a;
s:=s+c;
a:=b;
b:=c;
end;
writeln('s=',s);
<span>end.</span>
А) C помощью сетевого коммутатора или маршрутизатора, так как нам надо будет подключить несколько компьютеров.
Б) DSL через телефон домашний или высокоскоростной через оптоволокно ( одним словом проводной).
В) Беспроводной интернет (Wi-fi).
Осень жёлтая зима белая весна зелёная лето яркое
program raf105;
var
dr: real;
day: integer;
a,b: boolean;
begin
dr:= 0.75;
while not(a) or not(b) do
begin
day:= day+1;
dr:= dr + dr/100*160;
dr:= dr - 0.6;
if day = 6
then begin
writeln('а) Через 6 дней в установке будет ',dr:0:2,' т. дрожжей');
a:= True;
end;
if (dr >= 9) and not(b)
then begin
writeln('б) Через ',day,' суток масса дрожжей достигнет порога 9 т.');
b:= True;
end;
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>