LAÇOS DE REPETIÇÃO

1- Fazer um programa para mostrar os 20 primeiros nmero impares. var I, imparinteger begin for i1 to 20 do begin impar I2-1 writeln(impar) end readln end. Outra forma var Iinteger begin for i1 to 20 do writeln(I2-1) readln end. 2- Fazer um programa para mostrar os N primeiros mltiplos de um inteiro K, onde N e K so lidos e so nmeros inteiros e positivos. Informar tambm a soma desses N mltiplos. var N,K,i,soma,multiplointeger begin soma0 write(informe o valor de N ) readln(N) write(informe o valor de K ) readln(K) for i1 to N do begin multiploiK writeln(multiplo) somasomamultiplo end writeln(a soma dos ,N, primeiros multiplos de ,K, eh ,soma) readln end. 3- Faa um programa que mostre os divisores de um nmero inteiro no nulo fornecido pelo usurio var N,iinteger begin write(informe um numero inteiro nao nulo ) readln(N) writeln writeln(seus divisores sao ) if N0 then N-1N for i1 to N do if N mod i 0 then write(i, ) readln end. 4- Faa um programa que mostre os divisores de nmeros inteiros fornecidos pelo usurio. Encerrar o programa quando o usuario fornecer o nmero zero (, essencialmente, colocar um loop externo ao programa do exercicio anterior, para a leitura de varios numeros). var N,iinteger begin write(informe um numero inteiro ) readln(N) while N0 do begin writeln(seus divisores sao ) if N0 then N-1N for i1 to N do if N mod i 0 then write(i, ) writelnwriteln deixa uma linha em branco write(informe um numero inteiro ) readln(N) end readln end. 5- Faa um programa que leia um nmero inteiro positivo e fornea como sada seus dgitos. var N, Rinteger begin write(digite um numero inteiro ) readln(N) writeln(seus digitos sao ) while N 0 do begin R N mod 10 N N div 10 writeln(R) end readln end. 6- Faa um programa para mostrar a soma