Первая задача:
24×32×64=49152
Умножаем на кол-во битов(8)
49152×8=393216бит
Переводим в КБ и получаем
393216бит=48КБ
ОТВЕТ:48 КБ
ВТОРАЯ ЗАДАЧА
30+30=60
60×10=600бит
ОТВЕТ:600бит
Третья задача
256/16=16
ОТВЕТ:в 16 раз
Var a, b, c:integer;
Begin
Writeln('vvedite chisla');
Readln(a,b,c);
If (a>b) and (a>c) then writeln(a);
If (b>a) and (b>c) then writeln(b);
If (c>a) and (c>b) then writeln(c);
End.