Algoritmo que Apresente os Números Pares 0 a 100

Algoritmo que Apresente Todos os Números Pares que Estão Dentro da Faixa de 0 a 100

Pseudocódigo:

programa exercicio4
var
   inteiro: contador;
inicio
escreva "Os numeros pares de 0 a 100 sao:";
	para contador de 0 ate 100 passo 1 faça
		se (contador mod 2 <> 1) entao
		escreva (contador, ", ");
	fim_para;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 12/05/2010
Program exercicio4;
 uses crt;
 var
  contador : integer;
 Begin
 writeln('Os numeros pares de 0 a 100 sao:');
 writeln;  
 	for contador := 0 to 100 do
 		begin
 			if (contador mod 2 <> 1) then
 			write(contador, ', ');
 		end;
 writeln('Pressione para fechar');
 readkey;  
End.

Veja também:

[box type=”info” align=”aligncenter” class=”” width=”100%”]

Algoritmos

[/box]