-
Lenguaje
Pascal
-
Descripción
Ingrese cuatro números que sume los primeros dos datos, el resultado lo multiplique por la suma de los últimos dos números.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program MultiplicacionDeSumas;
uses crt;
var N1, N2, N3, N4, R1 : real;
begin
write ('Ingresa el valor de N1: ');
readln (N1);
write ('Ingresa el valor de N2: ');
readln (N2);
write ('Ingresa el valor de N3: ');
readln (N3);
write ('Ingresa el valor de N4: ');
readln (N4);
R1 := (N1+N2)*(N3+N4);
writeln ('Valor de R1: ', R1:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var N1, N2, N3, N4, R1 : real;
begin
write ('Ingresa el valor de N1: ');
readln (N1);
write ('Ingresa el valor de N2: ');
readln (N2);
write ('Ingresa el valor de N3: ');
readln (N3);
write ('Ingresa el valor de N4: ');
readln (N4);
R1 := (N1+N2)*(N3+N4);
writeln ('Valor de R1: ', R1:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.