Питон! 9 Класс, цикл - задача. Фото ниже.

1) Определяем общее количество бит: 16 х 640 х 480 = 4 915 200
С учетом того, что в байте 8 бит, а 1 КБ=1024 Б получим
4 915 200 / 8 / 1024 = 600 (КБ)

2) Определяем общее количество бит с учетом того, что в палитре True Color для цвета отводится 24 бита: 1600 х 1200 х 24 = 46 080 000 (бит).
После преобразования файла для Интернет он будет представлен в восьмибитной палитре ( 256 = 2⁸ ) и займет объем
1400 х 900 х 256 = 10 080 000 (бит).
Разница в объемах составит  46 080 000 -  10 080 000 = 36 000 000 бит.
С учетом того, что в байте 8 бит, а в мегабайте 1024 х 1024 байт получим, что пространство на диске сократиться на
36 000 000 / (8 х 1024 х 1024) ≈ 4.29 (МБ)

Free Pascal.  Все три задания в одном коде.

Объяснение:

const k=10;

var

 a, i, n: integer;

 s : double;

 ar : array[0..k-1] of integer;

begin

 writeln('Задание 4');

 write('Введите число : ');

 readln(a);

 for i:=8 to 18 do

   if a>=0 then

     write(sqrt(i):2:2, '  ')

   else

     writeln((i+0.8):2:1);

 writeln();

 writeln('---------------------------------');

 writeln('Задание 5');

 write('Введите n : ');

 readln(n);

  s:=0;

  for i:= 1 to n do

    s := s + i/2;

  writeln('Сумма ряда = ', s:2:1);

  if s>10 then

    writeln('Сумма ряда больше 10')

  else

    writeln('Сумма ряда меньше 10');

 writeln('---------------------------------');

 writeln('Задание 6');

 for i:=0 to k-1 do begin

   write('введите [', i, '] = ');

   readln(ar[i]);

 end;

 n:=0;

 for i:=0 to k-1 do

   if (ar[i] mod 2 = 0) then

     inc(n);

 writeln('Кол-во чётных чисел = ', n);

end.