Предмет: Информатика,
автор: ЗасекреченоАноним
Паскаль abc.Найти объем цилиндра, описанного около шара радиуса R .
Ответы
Автор ответа:
0
program lab1;
const
pi=3.14;
c=4/3;
var
r:integer;
V:real;
begin
writeln('введите r');
readln(r);
V:=c*pi*sqr(r)*r;
writeln('обьем');
write(V);
read;
end.
Похожие вопросы
Предмет: Математика,
автор: ilyareshet2019
Предмет: Биология,
автор: gladden140509
Предмет: Математика,
автор: Kalinina17
Предмет: Биология,
автор: kotama200
Предмет: Математика,
автор: lenakzt