Создать программу вычисления объёма цилиндра
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.
Все работает проверил.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
