Составить программы через Паскаль ABC

1. Дана длина ребра куба а. Найти объем куба V = a3 (третья степень) и площадь его поверхности S = 6 * a2. а = 2.00 V = 8.000 S = 24.000

2. Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V = аbc

и площадь поверхности S = 2 * (аb + bc + ac) a = 8.40 b = 3.80 c = 9.40 V = 300.048

S = 293.200

3. Найти длину окружности L и площадь круга S заданного радиуса R : L = 2П (пи) * R, S = П (пи) * R2 (в квадрате) П = 3.14 R = 1.50 L = 9.420 S = 7.065

P. S * - умножение

Question

Информатика

Яков

15 июля, 10:15

Составить программы через Паскаль ABC

1. Дана длина ребра куба а. Найти объем куба V = a3 (третья степень) и площадь его поверхности S = 6 * a2. а = 2.00 V = 8.000 S = 24.000

2. Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V = аbc

и площадь поверхности S = 2 * (аb + bc + ac) a = 8.40 b = 3.80 c = 9.40 V = 300.048

S = 293.200

3. Найти длину окружности L и площадь круга S заданного радиуса R : L = 2П (пи) * R, S = П (пи) * R2 (в квадрате) П = 3.14 R = 1.50 L = 9.420 S = 7.065

P. S * - умножение

+1

Ответы (1)

Знаете ответ на вопрос?

Диодора · Answer 1

Я так долго ждал тебя, мой юный Pascal программер.

1) var a, v, s:integer;

begin

readln (a) ;

v:=a*a*a;

s:=6*a*a;

writeln (v) ;

writeln (s) ;

end.

2) var a, b, c, v:real;

begin

a:=8.4;

b:=3.8;

c:=9.4

v:=a*b*c;

writeln (v) ;

s:=2 * (a*b+b*c+a*c)

end.

3) var l, s, r, p: real;

begin

r:=1.5;

p:=3.14;

l:=2*p*r;

s:=p*r*r;

end.