Question

Последовательно вычислить объемы N цилиндрических нефтехранилищ, внутренние диаметры оснований которых имеют значения D, D+1, D+2, D+3,...,D+N-1, а высоты равны диаметрам.
Нужна программа на PASCAL

Answer 1

Ответ:

var

d,n,i,j:integer;

v:real;

begin

write('Кол-во нефтехранилищь = '); readln(n);

write('Введите диаметр = '); readln(d);

for i:=0 to n-1 do begin

  v:=Pi*sqr(d/2)*d;

  write('Объём нефтехранилища №',i+1,' = ',v:0:3,' ед.^3'); writeln('  (Где диаметр = ',d,')');

  d:=d+1;

end;

end.