-
Lenguaje
Pascal
-
Descripción
Se desea saber calcular es el promedio de edades de Juana, Pedro y Ana estudiantes de la UTP sabiendo que Pedro tiene el doble de la suma de las edades de Juana y Ana.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program EdadesDeJuanaPedroYAna;
uses crt;
var edad_de_Ana, edad_de_Juana, edad_de_Pedro, promedio_de_edades : integer;
begin
write ('Ingresa el valor de edad de Ana: ');
readln (edad_de_Ana);
write ('Ingresa el valor de edad de Juana: ');
readln (edad_de_Juana);
edad_de_Pedro := (edad_de_Juana+edad_de_Ana)*2;
promedio_de_edades := (edad_de_Pedro+edad_de_Juana+edad_de_Ana) div 3;
writeln ('Valor de edad de Pedro: ', edad_de_Pedro);
writeln ('Valor de promedio de edades: ', promedio_de_edades);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var edad_de_Ana, edad_de_Juana, edad_de_Pedro, promedio_de_edades : integer;
begin
write ('Ingresa el valor de edad de Ana: ');
readln (edad_de_Ana);
write ('Ingresa el valor de edad de Juana: ');
readln (edad_de_Juana);
edad_de_Pedro := (edad_de_Juana+edad_de_Ana)*2;
promedio_de_edades := (edad_de_Pedro+edad_de_Juana+edad_de_Ana) div 3;
writeln ('Valor de edad de Pedro: ', edad_de_Pedro);
writeln ('Valor de promedio de edades: ', promedio_de_edades);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.