Уровень a.на вход программы поступает неизвестное количество чисел целых, ввод заканчивается нулём. определить, сколько получено чисел, которые делятся на 3. уровень b.на вход программы поступает неизвестное количество чисел целых, ввод заканчивается нулём. определить, сколько получено двузначных чисел, которые заканчиваются на 3. уровень c.на вход программы поступает неизвестное количество чисел целых, ввод заканчивается нулём. найти максимальное из введённых чётных чисел. язык программирования питон. заранее

512 бит = 512/8= 64 байт

1073741824 байт =1073741824/1024=1048576 Кбайт / 1024= 1024 Мбайт

1024 Кбайт = 1024*1024=1048576 байт

4

Дискета 3,5 = 720 Кбайт

СD= 650 Мбайт

DVD= 1,4 Гбайт- 17,08Гбайт

Жесткий диск = до 5 Тбайт (Терабайт)

5

30 Кбайт= 30*1024 = 30720 байт

125 Кбайт  =  125* 1024 =128000 байт

1024 Кбайт = 1024* 1024 = 1048576 байт

71 Кбайт = 71 * 1024 = 72704 байт

13 Гбайт = 13*1024=13312Мбайт=13312*1024=13631488Кбай= 13631488 * 1024 = 13958643712байт

9216 байт = 9216/1024 = 9 Кбайт

32 Гбайт = 32*1024*1024=33554432 Кбайт

769Мбайт = 769*1024 = 787456 Кбайт

512 байт = 512 /1024 = 0,5 Кбайт

70254592 байт = 70254592/1024/1024=67 Мбайт

42 Гбайт = 42*1024= 43008 Мбайт

20482 Кбайт = 20482/1024 = 20Мбайт

2 Гбайт =2*1024=2048 Мбайт 

Const n=10; 
var a:array[1..n] of integer;
i,s,min:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i]:4);
 end;
writeln;
s:=0; 
min:=a[1];
for i:=1 to n do
 begin
 if a[i]>0 then s:=s+a[i];
 if a[i]<min then min:=a[i];
 end;
writeln('s = ',s,'   min = ',min);
for i:=1 to n do
 if a[i]>0 then a[i]:=s
  else if a[i]<0 then a[i]:=a[i]-min;
writeln('Измененный массив:');
for i:=1 to n do  write(a[i]:4);
writeln;
end.

Пример:
Исходный массив:
   9  -3  -5   7   1   5  -6   9  -8   7
s = 38   min = -8
Измененный массив:
  38   5   3  38  38  38   2  38   0  38