• Lenguaje

    Pascal

  • Descripción

    Generar los primeros 50 números pares positivos

1
2
3
4
5
6
7
8
9
10
11
12
13
program Primeros50Pares;
uses crt;

var i, numero_par : integer;
begin
    for i:=1 to 50 do
    begin
        writeln ('PROCESO ', i);
        numero_par := i*2;
        writeln ('Valor de numero par: ', numero_par);
        writeln;
    end;
end.