1.Вычеслить обьем куба,если длина ребра задана
2.Вычеслить площадь поверхности кирпича,если длины ребер заданы
3.Вычеслить длину окружности,если радиус задан.
2.Вычеслить площадь поверхности кирпича,если длины ребер заданы
3.Вычеслить длину окружности,если радиус задан.
More Questions From This User See All
Answers & Comments
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.