Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Напишите в паскале программу к задачам 8,9,13 пожалуйста

Ответ оставил Гость

8)
Var
  V,S,R,H : Real;
Begin
  Write(Введите R и H : ); Readln(R,H);
  Writeln(V = ,Pi*sqr(R)*H);
  Writeln(S = ,2*Pi*R*H);
end.

9)
Var
  V,S,R,H,L : Real;
Begin
  Write(Введите R,H и L : ); Readln(R,H,L);
  Writeln(V = ,Pi*sqr(R)*H/3);
  Writeln(S = ,Pi*R*L);
end.