• Lenguaje

    Pascal

  • Descripción

    Dado los datos enteros A y B, escriba el resultado de la siguiente expresión: (A+B)^2/3

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program FxAB23;
uses crt, math;

var A, B, x : real;
begin
    write ('Ingresa el valor de A: ');
    readln (A);
    write ('Ingresa el valor de B: ');
    readln (B);
    x := power(A+B,2.0/3.0);
    writeln ('Valor de x: ', x:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.