Если расчёт с идеальными условиями (т.е. которых не бывает)
За первый час со скоростью 40 КБит/с он скачает
КБит + ещё за следующие 3 часа
Кбит = 792000КБит
За 4 часа ответ В).
P.S. Факторы влияющие на работу линии бесчисленное множество(Потеря пакетов, избыточная информация в пакета, стабильность соединения и т.п.). Так что в идеале так и будет, но к счастью мир не идеален, в чём его и прелесть)))
1)
<span>typedef size_t uint32;
mt19937 gen{ random_device()() };
uniform_int_distribution<uint32> uid(20, 100);
const uint32 N = 10;
int main()
{
uint32 arr[N], pos{0}, neg{0};
for (uint32 i = 0; i < N; ++i) {
arr[i] = uid(gen);
cout << arr[i] << " ";
if (arr[i] % 2 == 0) ++pos;
else ++neg;
}
cout << endl << pos << "/" << neg << endl;
system("pause");
<span>}
2)
</span></span><span>typedef size_t uint32;
mt19937 gen{ random_device()() };
uniform_int_distribution<uint32> uid(0, 100);
const uint32 N = 10;
int main()
{
uint32 arr[N], lf{ 0 }, hf{ 0 }, sum1{ 0 }, sum2{ 0 };
for (uint32 i = 0; i < N; ++i) {
arr[i] = uid(gen);
cout << arr[i] << " ";
if (arr[i] >= 50) {
++lf;
sum1 += arr[i];
} else {
++hf;
sum2 += arr[i];
}
}
cout << endl << sum1 / lf << "/" << sum2 / hf << endl;
system("pause");
<span>}</span></span>
1.
var
c: char;
a: string;
i: integer;
begin
writeln('Введите строку a:');
readln(a);
writeln('Введите символ с:');
readln(c);
for i:=length(a) downto 1 do
if a[i] = c then delete(a, i, 1);
writeln(a);
<span>end.
2.
var
b: string;
i, b1, b2: integer;
begin
writeln('Введите строку b:');
readln(b);
b1 := 0; b2 := 0;
for i:=1 to length(b) do
begin
if b[i] = '!' then inc(b1);
if b[i] = '?' then inc(b2);
end;
writeln('Восклицательных знаков: ', b1);
writeln('Вопросительных знаков: ', b2);
<span>end.</span></span>
Uses crt ; var n,m:integer; rost,a,b:real; beginwrite('Введите количество учинеков 9а класса: ');readln(n);write('Введите количество учинеков 9б класса: ');readln(m);writeln('Вводите рост каждого из учинеков 9а по очереди');for i:integer :=1 to n do beginwrite(i,': '); read(rost);a:=a+rost;end;a:=a/n; // средний рост 9аwriteln('Вводите рост каждого из учинеков 9б по очереди');for i:integer :=1 to m do beginwrite(i,': '); read(rost);b:=b+rost;end;b:=b/n; // средний рост 9бif a > b then write('Средний рост учеников 9а больше.') else if a < b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.');end.