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

romashka1899 romashka1899    1   10.09.2019 19:00    3

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

Написать программу, которая вычисляет и печатает объемы цилиндров высотой h=20 и радиусами оснований
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика