Mi Blog de Programación
domingo, 13 de mayo de 2012
program ryz;
uses winCrt;
var x,r,y,z:real;
begin
writeln ('ryz');
writeln ('Ingrese r');
Readln (r);
writeln ('Ingrese y');
Readln (y);
writeln ('Ingrese z');
Readln (z);
x:=(r*r)*(y*y*y)/(z*z);
writeln ('El resultado es:', x:5:3);
End.
No hay comentarios:
Publicar un comentario
Entrada más reciente
Entrada antigua
Inicio
Suscribirse a:
Enviar comentarios (Atom)
No hay comentarios:
Publicar un comentario