Program cnjdknc;
uses crt;
var a,b:real;
begin
readln(a,b);
if a>b then a:=a/5;
writeln(a);
readln;
end.
1)
var a:Integer;
begin
Readln(a);
if a div 10=3 then
writeln('True');
readln;
<span>end.
2)
var a,b:Integer;
begin
Readln(a,b);
if ((a<100) and (b>100)) or ((a>100) and (b<100)) then
Writeln('True');
readln;
<span>end.</span></span>
Первая задача:
24×32×64=49152
Умножаем на кол-во битов(8)
49152×8=393216бит
Переводим в КБ и получаем
393216бит=48КБ
ОТВЕТ:48 КБ
ВТОРАЯ ЗАДАЧА
30+30=60
60×10=600бит
ОТВЕТ:600бит
Третья задача
256/16=16
ОТВЕТ:в 16 раз