-
Lenguaje
Pascal
-
Descripción
Imprima la sumatoria de los primeros 250 números enteros positivos.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program SumatoriaDeLosPrimeros250;
uses crt;
var i, sumatoria : integer;
begin
sumatoria := 0;
for i:=1 to 250 do
begin
writeln ('PROCESO ', i);
sumatoria := sumatoria+i;
writeln;
end;
writeln ('Valor de sumatoria: ', sumatoria);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i, sumatoria : integer;
begin
sumatoria := 0;
for i:=1 to 250 do
begin
writeln ('PROCESO ', i);
sumatoria := sumatoria+i;
writeln;
end;
writeln ('Valor de sumatoria: ', sumatoria);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.