Exercicios de pascal resolvidos

1) Construa um programa que escreva na tela a palavra “Aula ” e o numero da iteração atual. Este laço deve ocorrer cinco vezes;
Program exercicio_1 ; var num:integer; Begin for num:=1 to 5 do begin writeln('Aula ', num); end; End.

2) Construa um programa que a cada iteração receba dois números, e vá mostrando na tela a soma desses dois números. Devem ocorrer 3545 iterações no total;

Program exercicio_2 ; var i:integer; var n1, n2:real; Begin i:=0; while i < 5 do begin n1:=0; n2:=0; writeln('Informe o primeiro numero: '); readln(n1); writeln('Informe o segundo numero: '); readln(n2); writeln('A soma dos numeros é: ', n1+n2:6:2); i:=i+1; end; End.

3) Escreva um programa que leia 10 números e exiba na tela o numero e o dobro dele, apenas se ele for múltiplo de 5;
Program exercicio_3 ; var i, numero:integer; Begin for i:=0 to 10 do begin numero:=0; writeln('Informe um numero: '); readln(numero); if numero mod 2 = 0 then writeln('O dobro do numero ', numero, ' é: ', numero*2) else writeln('O numer o ', numero, ' não é multiplo de 5.'); end; End.

4) Escreva um programa que apresente apenas as somas dos números pares entre 1 e 10

Program exercicio_4 ; var i, soma:integer; Begin soma:=0; for i:=1 to 10 do begin if i mod 2 = 0 then soma:=soma+i; end; writeln('A soma dos numeros pares entre 1 e 10 é: ', soma);