Question

Помогите решить пожалуйста, даю 20 баллов.

Answer 1

Ответ:

Решение ниже

Объяснение:

program pervoe;

const pi=3.14;

Var P,R:Real;

begin

WriteLn('Задайте радиус');

ReadLn(R);

P:=2*pi*R;

WriteLn('Длина окружности равна: ',P);

end.

program Vtoroe;

Var a,S1,S2,V:Real;

begin

WriteLn('Задайте длину ребра куба');

ReadLn(a);

S1:=sqr(a);

S2:=6*Sqr(a);

V:=Sqr(a)*a;

WriteLn('Площадь грани равна ',S1);

WriteLn('Площадь полной поверхности равна ', S2);

WriteLn('Объём куба равен ', V);

end.

program tretje;

Var a, b, c, resultat:Real;

begin

WriteLn('Задайте a, b и c');

ReadLn(a,b,c);

Resultat:=(Sqr(b)+sqrt(c))/abs(a);

WriteLn('Ответ ',resultat);

end.