FranJs
jueves, 10 de octubre de 2013
program calculo_imc;
uses wincrt;
var
imc,peso,altura: real;
begin
writeln('indique peso');
readln(peso);
writeln('ingrese altura');
readln(altura);
imc:=peso/(altura*altura);
writeln('su imc es:',imc:5:2);
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