1.вычеслить обьем куба,если длина ребра задана 2.вычеслить площадь поверхности кирпича,если длины ребер заданы 3.вычеслить длину окружности,если радиус задан.

100

113

Посмотреть ответы 2

Ответы на вопрос:

фракталы

Информатика

4,4(98 оценок)

1) var v,a: integer; begin write('введите длину ребра: '); readln(a); v: =a*a*a; writeln('объём куба: ',v); end. 2) var a,b,c,s: integer; begin writeln('введите длины ребер: '); readln(a,b,c); s: =2*a*b+2*a*c+2*b*c; writeln('площадь поверхности кирпича: ',s); end. 3) var r,l: real; begin write('введите радиус окружности: '); readln(r); l: =2*pi*r; writeln('длина окружности: ',l); end.