-
Lenguaje
Pascal
-
Descripción
Leer 4 números por teclado e indicar si la suma de los 3 primeros es igual al 4to número.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program SumaDeLos3PrimerosEsIgualAl4;
uses crt;
var numero_1ro, numero_2do, numero_3ro, numero_4to : real;
begin
write ('Ingresa el valor de numero 1ro: ');
readln (numero_1ro);
write ('Ingresa el valor de numero 2do: ');
readln (numero_2do);
write ('Ingresa el valor de numero 3ro: ');
readln (numero_3ro);
write ('Ingresa el valor de numero 4to: ');
readln (numero_4to);
if numero_1ro+numero_2do+numero_3ro=numero_4to then
begin
writeln ('La suma de los 3 primeros es igual al 4to n'#163'mero.');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var numero_1ro, numero_2do, numero_3ro, numero_4to : real;
begin
write ('Ingresa el valor de numero 1ro: ');
readln (numero_1ro);
write ('Ingresa el valor de numero 2do: ');
readln (numero_2do);
write ('Ingresa el valor de numero 3ro: ');
readln (numero_3ro);
write ('Ingresa el valor de numero 4to: ');
readln (numero_4to);
if numero_1ro+numero_2do+numero_3ro=numero_4to then
begin
writeln ('La suma de los 3 primeros es igual al 4to n'#163'mero.');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.