Разработать программу для расчёта площади поверхности и объёма шара известного радиуса.
230
302
Ответы на вопрос:
Uses crt; var r: integer; v,s: real; begin readln(r); s: =4*pi*r*r; writeln(s); v: =4/3*pi*r*r*r; writeln(v); end.
Паскаль var max,x,y: real; begin readln(x); while x=-5 do begin writeln(' введите другое значение для x'); readln(x); end; y: =(x-7)/(x+5); writeln(y); end.
Популярно: Информатика
-
ionufrijchuk23.01.2023 16:41
-
marusy55219.07.2021 05:21
-
ROUSWOOD10.12.2022 07:35
-
Дария00813.01.2023 19:37
-
dias226629.07.2022 14:23
-
f0xsick05.04.2020 15:04
-
andrii21317.06.2022 23:14
-
Kirito201711.12.2020 04:18
-
mikatay02.04.2023 23:19
-
александр19911012.07.2020 08:31