Создать программу вычисления объёма цилиндра

Question

Информатика

Вила

19 ноября, 21:36

Создать программу вычисления объёма цилиндра

+1

Ответы (1)

Знаете ответ на вопрос?

Досифея · Answer 1

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.

Все работает проверил.