Создать программу вычисления объёма цилиндра
Создать программу вычисления объёма цилиндра
Гость
Ответ(ы) на вопрос:
Гостьprogram tt;
const
Pi=3.14;
var
r,h:integer;
s,v:real;
begin
write('Введите r= ');
readln(r);
write('Введите h=');
readln(h);
S:=2*Pi*r*(h+r);
writeln('Площадь равна ',S);
readln;
end.
Все работает проверил.
Не нашли ответ?
Похожие вопросы