Паскаль! !
c использованием цикла while ( не массив! ).
числа фибоначчи определяются: f0=f1=1, fn=fn-a+fn-2, при n=2, (т. у. каждое последующее число равно сумме двух предыдущих). составить программу:
а) нахождения к-го числа фибоначчи;
б)нахождение самого первого числа фибоначчи, превышающего m;
в) вычисления суммы всех чисел фибоначчи, значения которых не превышает 1000.

буду !

2гбайта=2000000байт

2000000байт/400байт=5000текстовых файлов

4мин=240 сек.

1 половина всего времени = 240/2=120 сек.

за перпую половину времени передалось = 120 сек * 117 кбит = 14040 кбит

за вторую половину времени передалось в 3 раза меньше (т.к. скорость была в 3 раза меньше) = 14040/3=4680 бит

всего передалсоь = 14040+4680=18720 кбит = 2340 кбайт

если паскаль, то вот :

program altzie;

var h: real;

begin

repeat write('введите h ');

readln(a); if a< =0then writeln('ошибка! значение h не может быть нулевым или отрицательным. повторите ввод.');

until h> 0;

writeln('площадь боковой поверхности куба = ', (6*h*h));

readln; end. 

так как сумм(а1: в3)=30 а в4=5

то 

a4=-11