6.4.. Za poznate vrijednosti površine i baze valjka izračunati odgovarajuću visinu.

Opis programa:

Listing programa:

PROGRAM P06411060;
var
  P, B, R, H: real;
begin
  writeln('Unesi površinu i bazu valjda');
  readln(P);
  readln(B);
  R:=sqrt(B/3.14);
  H:=(P-2*3.14*R)/(2*R*3.14);
  writeln('Visina je:', H);
  READLN;
END.

Ispis na ekranu:

Index