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

Question

Информатика

Наталий

22 августа, 00:14

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

+4

Ответы (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.

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