var d,p,h:real;
begin
readln(d,h);
p:=3.14;
writeln('Площадь бака ', p*d*h)
d:=d*d
writeln('Площадь крышки ', p*d);
end.
Помогите пожалуйста разобраться в данной ситуации
1) переведем "37" в двоичную систему счисления, путем деления числа на два.
2) переведем дробную часть, умножая на два.
Решение смотри во вложении.