Написать формулы и алгоритм.

Для определения: Можно ли перелить содержимое цилиндрического бака в прямоугольный контейнер без потери жидкости.

Объем цилиндра = πR²h, объем параллелепипеда = abh

Программа на паскале:

var r, h1, a, b, h2, v1, v2:real;

begin

writeln ('Введите данные цилиндра:') ;

write ('R = ') ; readln (r) ;

write ('h = ') ; readln (h1) ;

writeln ('Введите данные параллелепипеда:') ;

write ('a = ') ; readln (a) ;

write ('b = ') ; readln (b) ;

write ('h = ') ; readln (h2) ;

v1:=pi*r*r*h1;

v2:=a*b*h2;

writeln ('V1 = ', v1:5:2,' V2 = ', v2:5:2) ;

if v1 < = v2

then writeln ('Yes') else writeln ('No') ;

end.

Пример:

Введите данные цилиндра:

R = 3

h = 5

Введите данные параллелепипеда:

a = 4

b = 6

h = 5

V1 = 141.37 V2 = 120.00

No