TEMA

Solução numeros impares em pascal^_^

Pedro Henrique Carneiro preguntado 1 year ago

program uriimpares; var cont,n,impares: integer;

begin readln(n); cont:= 1; impares:= 0; if (n>0) and (n<=1000) then begin while (impares<(n-1)) do begin impares:= (2*cont)-1; writeln(impares); cont:= cont + 1; end;

end; end.

Recuerda no enviar soluciones. Tu mensaje puede ser revisado por nuestros moderadores.

  • Aléxis Toigo respondido 1 year ago

    o fórum não é para postar as soluções dos problemas.