sexta-feira, 28 de janeiro de 2011

Números impares entre 100 e 200

{Escrever um programa que gere e escreve os numeros impares entre 100 e  200.}

Uses CRT;
Var  Cont:  Integer;

Begin
    Cont := 100;
    Clrscr;
    Writeln ('Os numeros impares entre 100 e 200 sao: ');
    While Cont <= 100 Do
          Begin
              If (Cont MOD 2) <> 0 Then
                 Writeln(Cont);
              Cont := Cont + 1;
          End;
    Readkey;
End.

2 comentários:

  1. não entendi uma só palavra, muito obrigada por nada.

    ResponderExcluir
  2. diz so o numero, rapido, e para agora! e so o numero, nao como se faz, e é de 100 a 200, um numero impar

    ResponderExcluir