Запишіть фрагменти програм мовами програмування Free Pascal та Python для виконання таких дій:

1) друкується таблиця множення на 9;

2) друкуються квадрати чисел від 10 до 1;

3) знаходиться сума цілих чисел від 1 до 10;

4) обчислюється добуток парних чисел першого десятка;

5) обчислюється сума дробів з чисельником 1, знаменниками яких є непарні

числа від 3 до 9;

6) визначається кількість введених речень (речення закінчується крап-

кою, знаком оклику чи знаком питання).

Используемая формула: I = V • t.

V — пропускная канала (в битах в секунду

или подобных единицах);

t — время передачи.

Найдём время передачи информации по соединению.

Выполним преобразование от Кбайт к бит.

t = I : V = 240 Кбайт : 2048 бит/с =

= (240 • 1024 • 8) : 2048 с =

= (30 • 8 • 210 • 23) : 211 с = 960 с.

Найдём объём файла, который можно передать за это время по другому соединению. Выполним преобразование от бит к Кбайт.

I = V • t = 512 бит/с • 960 с = 491 520 бит =

= 491 520 : 8 : 1024 Кбайт = 60 Кбайт.

ответ;60.

#include <iostream>

#include <cmath>

#include <ctime>

using namespace std;

int main (void)

{

 srand (time (0));

 int Temp = 0;

 int max = 1;

 int maxi = 0;

 int n = 0;

 cout << "Input n = ";

 cin >> n;

 cout << endl;

 int *A = new int[n];

 for (int i = 0; i < n; i++)

   {

     A[i] = -10 + rand () % 30;

     cout << A[i] << "   ";

   }

 for (int i = 0; i < n; i++)

   {

     if (abs (A[i]) > abs (max))

{

  max = A[i];

  maxi = i;

}

   }

 cout << "\nABS(Max) = " << max << "  Number = " << maxi;

 Temp = A[n - 1];

 A[n - 1] = max;

 A[maxi] = Temp;

 cout << endl;

 for (int i = 0; i < n; i++)

   {

     cout << A[i] << "  ";

   }

 delete[]A;

}

Объяснение: