Регистрация
Polly2011
04.01.2020 15:16
Информатика
Есть ответ 👍

8 КЛАСС Вычислить и вывести на экран кол-во воды, если перед вами стоит задача полностью наполнить водой бассейн.

200
394
Посмотреть ответы 2

Ответы на вопрос:

hfyfghhvu
hfyfghhvu
4,6(35 оценок)

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.

катяlove4
катяlove4
4,5(19 оценок)

x=x+2 верная точно я знаю это

Популярно: Информатика