Program zadacha;
var rad, a, b, c, p:real;
begin
p:=3.14;
writeln('Введите радиус круга: ');
readln(rad);
writeln('Введите сторону квадрата: ');
readln(a);
b:=p*(rad*rad);
c:=a*a;
if b>c then
writeln('Площадь круга больше, чем площадь квадрата.')
else
writeln('Площадь квадрата больше, чем площадь круга.');
end.
2^5 = 32 < 59 <= 64 = 2^6, т.е. необходимо 6 бит для кодирования каждой комбинации
Тогда инфообъём = 6*80 бит = 6*10 байт = 60 байт
=$C$5+F6
Я проверила в программе, должно быть так
Program Dujm
<span>
</span>
var a,res: real;
<span>
</span>
begin
writeln('Vvedite dlinu v sm');
readln(a);
res:=a/2.5;
writeln(a,' sm v dujmah ravno
',res:5:2);
readln;
end.
А:=4
b:=2
b:=а/2*b //в результате b = 4/2*2 = 4
a:=2*a+3*b
//в результате a = 2*4+ 3*4= 20
Ответ: 20