Var
r,a:real;
begin
readln(a);
a:=a*100;
r:=a/4.45;
writeln(r:0:5);
end.<span>
</span>
Для получения объёма необходимо все перемножить:
1920 * 1080 * 32 = 66355200 бит
Переводим в килобайты: 66355200 : 1024 : 8 = 8100 КБайт
Ответ: 3
var
a: integer;
begin
readln(a);
if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число')
else writeln('периметр не двузначное число');
end.
Можно посчитать все числа и делить на 2: 14 / 2 = 7, или посчитать только на одной стороне: 7