Составить программу.

Задача 1

Найти площадь полной поверхности цылиндра с высотой h и радиусом r.

Задача 2

Периметр треугольника равна' р', длина одной стороны равна 'а', другой на 5 больше.Найти длину третей стороны

Помогите пожалуйста!:( Не получается решить

1

Ответы и объяснения

Лучший Ответ!
2013-02-17T22:13:59+00:00

Задача 1.

program abc;
uses crt;
var h,r,S:real;
begin
writeln('Vvedite h');
readln(h);
writeln('Vvedite r');
readln(r);
S:=2*pi*r*h;
writeln(S);
end.

 

 

Задача 2.

program abc;
uses crt;
var a,b,P:real;
begin
writeln('Vvedite perimetr');
readln(P);
writeln('Vvedite storonu');
readln(a);
b:=P-(2*a+5);
writeln('3ya storona=',b);
end.