Пусть V1 - объем цилиндра, а V2 - объем конуса, тогда:
![\displaystyle V_1= \pi R^2h \\ V_2= \frac{1}{3} \pi R^2h= \frac{1}{3}V_1](https://tex.z-dn.net/?f=%5Cdisplaystyle+V_1%3D+%5Cpi+R%5E2h+%5C%5C+V_2%3D+%5Cfrac%7B1%7D%7B3%7D+%5Cpi+R%5E2h%3D+%5Cfrac%7B1%7D%7B3%7DV_1)
const
pi=3.14;
var
V1,V2,R,h:real;
begin
Write('Введите радиус и высоту: '); Read(R,h);
V1:=pi*sqr(R)*h; V2:=V1/3;
Writeln('Объем цилиндра ',V1:0:5,', объем конуса ',V2:0:5)
end.
<em><u>Тестовое решение:</u></em>Введите радиус и высоту: 5.5 12.81
Объем цилиндра 1216.75785, объем конуса 405.58595
БЛОК-СХЕМА ВО ВЛОЖЕНИИ
var
a,b,c,min:real;
begin
readln(a,b,c);
if (a*b*c)<(a+b+c)then
min:=a*b*c
else
min:=a+b+c;
writeln(min);
end.
137 GB = 137000 MB (десятичная)
137 GB = 140288 MB (двоичная)
22180=2.218·10⁴
Мантисса 2.218, порядок +4
Или, в нормализованном виде, 22180=0.2218·10⁵ и тогда
мантисса 0.2218, порядок +5
var
a:array[1..31] of real;
i,k:integer;
min:real;
begin
min:=50;
for i:=1 to 31 do
begin
readln(a[i]);
if a[i]<min then min:=a[i];
end;
k:=0;
for i:=1 to 31 do
if a[i]=min then k:=k+1;
writeln(k);
end.