1) 3072*8 = 24576 Кбит
2) 4*1024 = 4096 Кбит/с
3)24576 / 4096 = 6с - ответ
Program n_1;
var i, k, n:integer; a: array [1..40] of integer;
begin
readln(n);
randomize;
for i:=1 to 40 do begin
a[i]:=random(100);
if a[i]>=n then k:=k+1;
end;
writeln(k);
end.
_____
Поставил диапазон генерации чисел от 0 до 99 т.к. в условии о нем не было сказано ничего.
Program zadacha;
Var n,ch:integer;
Begin
Writeln('vvedit n');
Readln(n);
ch:=(n-5)/2;
Writeln('ch',ch);
End.
Var A,i : Longint;
Begin
Readln(A);
For i:=1 to A do If A mod i = 0 then Writeln(i);
end.
#include <iostream>
using namespace std;
int main()
{
double L = 0;
int n = 0;
cout << "Введите длину бревна" << endl;
cin >> L;
cout << "Введите в скольких местах распилили бревно" << endl;
cin >> n;
cout << "Средняя длина получившихся кусков: " << L/(n+1) << endl;
return 0;
<span>}</span>