Ответы на вопрос:
Первое : program cube; var a,s,v: real; begin; write('введите длину ребра куба: '); read(a); v: =power(a,3); s: =6*sqr(a); write('площадь равна ',s,', а объём равен ',v,'.'); end. второе : program par; var a,b,c,s,v: real; begin; write('введите стороны a,b,c: '); read(a,b,c); v: =a*b*c; s: =2*(a*b+b*c+a*c); write('площадь равна ',s,', а объём равен ',v,'.'); end. третье и четвёртое : program mult; var r,a,b,c: real; begin; write('введите три числа: '); read(a,b,c); r: =a*b*c; write('произведение чисел равно ',r); end.
Популярно: Информатика
-
svfedunina02.06.2020 21:19
-
kiorav27.06.2021 07:41
-
dumargarita02.08.2020 10:26
-
Nadin1813.02.2023 05:19
-
gnevasheva196501.11.2021 07:20
-
shram07028.06.2023 23:16
-
soso907.04.2020 10:42
-
Belgorodov3312.07.2021 19:22
-
alyamiller151322.10.2021 17:04
-
seksi250523.11.2020 00:39