• 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
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.