Предмет: Информатика,
автор: Grantmaster201
Площадь поверхности шара s=4* pi* R^2 где S площадь поверхности шара R радиус составить программу
Ответы
Автор ответа:
0
На языке паскаль, за взято 3,14:
program ball;
var s,r, r2 : real;
begin
writeln('Введите радиус шара');
readln(r);
r2:=sqr(r);
s:=4*3.14*r2
writeln('Площадь шара равна ', s);
readln;
end.
program ball;
var s,r, r2 : real;
begin
writeln('Введите радиус шара');
readln(r);
r2:=sqr(r);
s:=4*3.14*r2
writeln('Площадь шара равна ', s);
readln;
end.
Похожие вопросы
Предмет: Геометрия,
автор: kate0425
Предмет: Математика,
автор: fainatulebaeva2
Предмет: Русский язык,
автор: hxnneyew
Предмет: Биология,
автор: moloy504