Question

ДАЮ 60 БАЛОВ!! 8 КЛАСС!! ПЖ помогите!!! Вычислить и вывести на экран кол-во воды, если перед вами стоит задача полностью наполнить водой бассейн.

Answer 1

var

 a, b, c, tip: integer;

 S, v, h, r: real;

begin

 Writeln('Введите тип басейна 1 - прямоугольный, 2 - круглый: ');

 Readln(tip);

 if tip = 1 then

 begin

   Writeln('Введите Длинну, Ширину, Высоту бассейна: ');

   Readln(a, b, c);

   Writeln('Вам понадобиться: ', (a * b * c), 'м3. воды');

 end

 else

   Writeln('Введите Высоту и Радиус: ');

 Read(h, r);

 S := 3.14 * (r * r);

 Writeln(S);

 V := S * h;

 Writeln('Вам понадобиться: ', v, 'м3. воды');

 end.