Var a,b,i,n: integer;
begin
a := 1;
b := 1;
read(n);
for i := 2 to n do
begin
b := a + b;
a := b - a
end;
write(b)
end.
1Гиг=1024 мега
1мега = 1024 кило
1килобайт = 1024 байта
<span>1 байт = 8 бит</span>
1.
Program suma;
Var a, b, sum, i:integer;
begin
read(a);
read(b);
for i:=a to b do sum:=sum+i;
write(sum);
end.
2.
Program multip;
Var a, b, m, i:integer;
begin
m:=1;
read(a);
read(b);
for i:=a to b do m:=m*i;
write(m);
end.
3.
Program suma2;
Var a:array [1..5] of integer;
i, sum:integer;
begin
for i:=1 to 5 do read(a[i]);
for i:=1 to 5 do
sum:=sum + a[i] * a[i];
write(sum);
end.
4.
Program cnt_nopos;
Var a:array [1..5] of integer;
i, cnt:integer;
begin
for i:=1 to 5 do read(a[i]);
for i:=1 to 5 do
if a[i] < 0 then Inc(cnt);
write(cnt);
end.
5.
Var a:array [1..5] of integer;
i, max:integer;
begin
for i:=1 to 5 do read(a[i]);
max:=a[1];
for i:=1 to 5 do
if a[i] > max then
max:=a[i];
write(max);
end.
Наличие необходимого снаряжения: палатки, котелка, консерв, воды, карты, компаса, КЛМН и т.д.
Благоприятная погода на неделю.
Наличие/отсутствие опасностей.
Дальше в зависимости от местности где лес.
//А каким боком это к информатике?
Д
BD. Формат оптического носителя, используемый для записи и хранен
<span />