Программа вычисляющая объём и площадь полной поверхности цилиндра
Программа вычисляющая объём и площадь полной поверхности цилиндра
Гость
Ответ(ы) на вопрос:
Гостьvar r,h,s,v: real;
begin write('Введите радиус: ');
readln(r);
write('Введите высоту: ');
readln(h);
s:=4*pi*r*(h+r);
v:=pi*r*r*h;
writeln('Полная площадь цилиндра равна ',s);
writeln('Объем цилиндра равен ',v);
end.
Не нашли ответ?
Похожие вопросы