1.вычеслить обьем куба,если длина ребра задана 2.вычеслить площадь поверхности кирпича,если длины ребер заданы 3.вычеслить длину окружности,если радиус задан.
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.
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.