Если положительные, то везде одинаково
для 6:
<span>110
</span>для 19
<span>10011</span>
Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A>B then
Begin
if A>C then A:=A/3
else C:=C/3;
if B<C then B:=B*3
else C:=C*3
End
else
Begin
if B>C then B:=B/3
else C:=C/3;
if A<C then A:=A*3
else C:=C*3
End;
WriteLn;
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
End.
1) 1024=2^10; 768=3*256=3*2^8; 16=2^4
2) 2^10 * 3*2^8 * 2^4 *75= 225*2^22 бит =225*2^19 байт=
=225*2^9 Кбайт =115 200 Кбайт =112,5 Мбайт
ответ: 115 200 Кбайт или 112,5 Мбайт
<em>Если посмотреть, то практически русские слова заменили английскими.</em>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
program Задача;
begin
var a,b:real;
Read(a,b);
if a<b
then Writeln('число ',a,' меньше числа ',b)
else Writeln('число ',b,' меньше числа ',a)
end.
<em>На самом деле можно написать и несколько покороче</em>
begin
var (a,b):=ReadReal2;
if a<b then Writeln('число ',a,' меньше числа ',b)
else Writeln('число ',b,' меньше числа ',a)
end.