Question

1)Дана сторона квадрата а. Найти P= 4*a
2)Дана сторона квадрата а. Найти S= a^2
3)Даны стороны прямоугольника a и b. Найти его площадьS=a*b и периметр P= 2*(a+b).
4)Дана длина ребра куба a. Найти объем куба V=a^3 и площадь его поверхности S= 6*a^2.
5)Даны длины ребер a,b,c прямоугольного параллелепипеда. Найти его объем V=a*b*c и площадь поверхности S= 2*(a*b+b*c+a*c).

Answer 1

1,2)
program gt;
var a,p,s:integer;
begin
read(A);
p:=4*a;
s:=a*a;
writeln('периметр=',p);
writeln('плошад',S);
end.
3)
program gt;
var a,b,p,s:integer;
begin
read(A,b);
p:=2*(a+b);
s:=a*b;
writeln('периметр=',p);
writeln('плошад',S);
end.
4)
program gt;
var a,v,s:integer;
begin
read(A);
v:=a*a*a;
s:=6*a*a;
writeln('объем=',v);
writeln('плошад',S);
end.
5)
program gt;
var a,b,c,v,s:integer;
begin
read(A,b,c);
v:=a*b*c;
s:=2*(a*b+b*c+a*c);
writeln('объем=',v);
writeln('площадь',S);
end.