30*70=2100- символов на странице
2100*5=10500-√ памяти
а дальше я хз
1 var a, b, c, n, i: integer;
2
3 begin
4 writeln('Vvedite N');
5 readln(n);
6 a :=1; b :=1;
7 for i := 3 to n do begin
8 c := a + b;
9 a := b;
10 b :=c;
11 end;
12 writeln(c);
13 end.
===== PascalABC.NET =====
function RS(a: array of integer): integer;
begin
var n := a.Length;
Result := a[0];
if n > 1 then
Result += RS(a[1:])
end;
begin
var n := ReadInteger('Число слагаемых:');
var a := ReadArrInteger('Вводите:', n);
RS(a).Println
end.
1) Появление компьютерных сетей связано с тем, что военные части в случае военных действий во время холодной войны должны были бы обмениваться информацией по надежному каналу связи. Такой канал связи стали разрабатывать в 50-е годы в США.
Вторая причина тоже связана с обменом информацией только между институтами - появилась необходимость в быстром обмене при проведении исследований на разных научных базах в разных институтах
2) ограниченные возможности запоминающих устройств, т.е. для хранения больших объемов информации
3) для увеличения скорости обрабатываемых данных (в случае большого количества информации)
<span><span>uses crt;
const n=7;
var sr:real;
i:integer;
a:array[1..n] of integer;
begin
clrscr;
sr:=0;
writeln('Vvedite temperaturu za kajdyi den ');
for i:=1 to n do begin
readln(a[i]);
sr:=sr+a[i];
end;
sr:=sr/7;
write('Srednya temperatura = ',sr:0:2);
readkey;
end.</span></span>