Написать программу, которая вычисляет и печатает объемы цилиндров высотой h=20 и...

Question

Написать программу, которая вычисляет и печатает объемы цилиндров высотой h=20 и радиусами оснований от 1 до 15.
НАПИСАТЬ ПРОГРАММУ НУЖНО В ПАСКАЛЕ

Answer 1

var
  h, i: byte;
  z: real;
begin
  h := 20;
  for i := 1 to 15 do
    writeln('Объем цилиндра с основанием ', i, ' = ', (pi * (i * i) * h):2:2);
end.

---

Comments

спасибо большое, можешь мне объяснить как это вообще делается, а то я к оге подготавливаюсь и не могу понять как это всё делается

---

Отредактировал программу. Первый раз перепутал формулу.

---

Это основы основ, как 2 + 2. Я незнаю как это объяснять.

---

а какую ?

---

блин

---

ну ладно спасибо всё равно

---

pi * (i * i) * h это формула для вычисления объема цилиндра по высоте и радиусу основания.

---

i = радиус основания. h = высота цилиндра. pi = число пи. i * i = квадрат числа i, т.е. квадрат радиуса основания.

---

спасибо