Pascal, цикл для, составить программу. 1)последовательно вводятся 10 целых чисел. найти среднее арифметическое этих чисел

Program up1;
var i,q,w:integer;w:real;
begin
for i:=1 to 10 do
begin
write('введите число');
read(q);
w:=w+q;
end;
e:=w/10;
write('средне арихметическое чисел',e);
end.

1. 5.3 МБ = 5.3 * 2^10 КБ = 5.3 * 2^20 Байт = 5557452,8 байт.

2. 7032 бит = 7032 / 8 байт = 879 байт = 879 / 1024 Кбайт ~ 0.9 Мбайт.

3. 1.7 ГБ = 1.7 * 2^10 МБ = 1740,8 МБ = ~1741 МБ

4. 3076 КБ / 1024 = 3,00390625 МБайт = ~ 3Мбайт

5. 1024000 бит = 1024000 / 8 байт = 128000 байт / 1024 КБ = 125 КБ / 1024 =   0.12 МБ / 1024 = ~0.0001 Гб.

При повышение приставки, например, из КБ в МБ, значение следует умножать на 1024(2^10 степени). При понижении, соответственно, делить.

Для того, чтобы перевести из битов в байты, нужно количество бит разделить на 8(2^3).

#include <stdio.h>

#include <stdlib.h>

int main()

{

   // y = 1 - x + x * x / 2 + 5x

   // -5 < x < 6

   // Считываем x:

   float x;

   printf("Enter x: ");

   scanf("%f", &x);

   // Проверяем условие с цикла while:

   // PS: для извращенцев.

   int i = 0;

   while (i == 0)

   {

       if (-5 >= x)

       {

           return EXIT_FAILURE;

       }

       if (x >= 6)

       {

           return EXIT_FAILURE;

       }

       i = 1;

   }

   // Решаем уравнение:

   float y = 1 - x + x * x / 2 + 5 * x;

   // Выводим результат:

   printf("Result y = %f\n", y);

}