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.