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