Файл имеет объем 12960 б. сколько таких файлов можно записать на носитель объемом 5 мб? диск ёмкостью 4, 7 гб заполнен 1560 однотипными файлами. укажите информационный объём каждого файла в байтах.

1. На носитель в 5Мб поместится 404 файла по 12960 Байт. 2. Каждый файл весит 3 234 991 Байт

print("1-прямоугольник, 2-треугольник, 3-круг")

figure = input("Выберите фигуру: ")

if figure == '1':

   print("Длины сторон прямоугольника:")

   a = float(input("a = "))

   b = float(input("b = "))

   print("Площадь: %.2f" % (a * b))

elif figure == '2':

   print("Длины сторон треугольника:")

   a = float(input("a = "))

   b = float(input("b = "))

   c = float(input("c = "))

   p = (a + b + c) / 2

   from math import sqrt

   s = sqrt(p * (p - a) * (p - b) * (p - c))

   print("Площадь: %.2f" % s)

elif figure == '3':

   r = float(input("Радиус круга R = "))

   from math import pi

   print("Площадь: %.2f" % (pi * r ** 2))

else:

   print("Ошибка ввода")

Объяснение:

1-прямоугольник, 2-треугольник, 3-круг

Выберите фигуру: 2

Длины сторон треугольника:

a = 4

b = 5

c = 6

Площадь: 9.92

1) Код программы:

const N = 10;

var a:array[1..N] of integer;

i:integer;

begin

 writeln('Массив:');

 for i:=1 to N do begin

   a[i] := random(-100, 100);

   write(a[i], ' ');

 end;

 writeln();

 writeln('Отрицательные элементы, кратные 3: ');

  for i:=1 to N do begin

   if ((a[i] < 0) and (a[i] mod 3 = 0)) then

     write(a[i], ' ');

 end;

end.

2) Код программы:

const N = 8;

var a:array[1..N] of integer;

i, sum:integer;

begin

 writeln('Массив:');

 for i:=1 to N do begin

   a[i] := random(-100, 100);

   write(a[i], ' ');

 end;

 sum:=0;

 writeln();

 writeln('Сумма нечётных элементов, больше 10: ');

  for i:=1 to N do begin

   if ((a[i] > 10) and (a[i] mod 2 = 1)) then

     sum:= sum + a[i];

 end;

 write(sum);

end.

3) Код программы:

const N = 10;

var a:array[1..N] of integer;

i, kol:integer;

begin

 writeln('Массив:');

 for i:=1 to N do begin

   a[i] := random(-5, 5);

   write(a[i], ' ');

 end;

 kol:=0;

 writeln();

 writeln('Количество элементов, равных нулю с чётными индексами: ');

  for i:=1 to N do begin

   if ((a[i] = 0) and (i mod 2 = 0)) then

     kol:= kol + 1;

 end;

 write(kol);

end.