var
a: array[1..5] of integer;
i, z, x: integer;
begin
z := -1;
x:=1;
for i := 1 to 5 do
begin
read(a[i]);
if (a[i] >z) then z := a[i];
if (a[i] <x) then x := a[i];
end;
writeln(z - x);
end.
//PascalABC.NET 3.1 сборка 1200
begin
var s := ReadlnString('s =');
s := s.Replace('А', '*_*');
s := s.Replace('Б', 'А');
s := s.Replace('*_*', 'Б');
s := s.Replace('а', '*_*');
s := s.Replace('б', 'а');
s := s.Replace('*_*', 'б');
writeln(s);
end.
Ответ:
Вот, но только первые 2 задания, остальные не помню как делать)
Объяснение:
1.
I=i*k*m
где i - объём одной точки, k, m - размер картинки
32*8*1024=256*256*i
(вычисления лучше проводить, представив все значения в степенях двойки)
i=4
N=2^i
N - количество цветов в картинке
2^4=16,
N = 16
2.
I= i*t*q*c
c - количество дорожек (здесь моно - 1)
q - частота дискретизации
i - глубина кодирования
t - время
I= 16 бит * 60 с * 16 000 Гц * 1 = 15 360 000 бит = 1,8 Мб (примерно)
все значения нужно брать в минимальных, то есть Гц, биты и секунды, а не байты, килогерцы и минуты.