Pascal/Turbo Pascal - suma de 3 cantidades

   
Vista:

suma de 3 cantidades

Publicado por fany (1 intervención) el 22/04/2015 07:15:43


program suma_de_tres_cantidades;
uses crt;
var num1,num2,num3,R: integer;
begin
clrscr;
textcolor (5);
gotoxy (25,25);
write ('ingrese la suma');
readln;
textcolor (2);
gotoxy(25,27);
write('primera cantidad: ');
readln (num1);
textcolor (3);
gotoxy(25,29);
write ('segunda cantidad: ');
readln (num2);
textcolor(4);
gotoxy (25,31);
write ('tercera cantidad: ');
readln (num3);
textcolor (5);
gotoxy (25,33);
R:= num1+num2+num3
write ('el resultado es: 'R,);
readkey;
end.



con este código funciona a la perfección y si lo desean hacer de mayor cantidad de números solo se le agregan y no se cambia absolutamente nada espero que les ayude en algo este código ...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder