Var
a, b,c,d,e:longint;
begin
readln(a);
b:=a biv 1000;
c:=a biv 100 mod 10;
d:=a biv 10 mod 10;
e:= a mod 10;
writeln(b+c+d+e);
writeln(b×c×d×e);
writeln(e,d,c,b);
end.
1) Переведем скорость в кб/с. 2 621 440 бит/с=320 кб/с
Файл размером 10 Мб или 10240 Кб будет передаваться 32 секунды
2)Переведем скорость 256 000 бит/с=32 кб/с
10 мин=600 с. Значит наибольший файл будет иметь размер 19200 Кб
3)Не знаю
2AC1₁₆=10101011000001₂;
Ответ: 6 единиц.
Var a,b,c:integer;
begin
read(a,b,c);
if b>a then a:=b;
if c>a then writeln(c) else writeln(a);
end.