Exercícios Pascal

Program Age;
Uses Crt;
Var
Idades,i,Idade:Integer; Media:Real;

Begin Idades:=0; Media:=0; For i:=0 to 4 do Begin Writeln('Digite uma idade: '); Readln(Idade); Idades:= (Idades+Idade); End; Media:=Idades/5; Writeln ('A media das idades e de: ', Media:3:1);
Readkey;
End.

Program Divisiveis;
Uses Crt;
Var
N1,N2,Soma:Integer; Resultado:Real;
Begin
soma:=0; resultado:=0; N2:=1; Writeln ('Escreva um numero inteiro: '); readln(N1); While (N2>0) do Begin Writeln ('Escreva um numero inteiro: '); readln(N2); If (N2 MOD N1 = 0) then Begin Soma:= (Soma+N2); End; End; Resultado:= (Soma); Writeln ('A media dos numeros inseridos foi: ',Resultado:3:1);
Readkey;
End.

Program Tabuada;
Uses Crt;
Var
Numero,i,Resultado:Integer;

Begin Writeln ('Escreva um numero: '); Readln (Numero); For i:=0 to 10 do Begin Resultado:=(Numero*i); Writeln (Numero,' x ',i,' = ',Resultado); End;
Readkey;
End.

{Exercício 1: Faça um programa que receba as medidas do retângulo e calcule a área do mesmo}

Program area_retangulo;
Uses Crt;
Var
L1,L2:Real; Begin Writeln (' L4 '); Writeln (' __________ '); Writeln (' | | '); Writeln ('L3 |__________| L2 '); Writeln (' '); Writeln (' L1 '); Writeln; Writeln ('Digite os valores da base e altura, lambrando que L1 = L4 e L2 = L3: '); Readln (L1,L2); Writeln (' A area do retangulo e de: ',L1*L2:3:1);
Readkey;
End.

{Exercício 2: Faça um programa que leia m e n e calcule a soma de todos os números ímpares entre m e n}

Program soma_impares;
Uses Crt;
Var
M,N,i,Soma:integer; Begin Soma:=0; Writeln ('Escreva um valor para M e outro para N: '); Readln (m,n); for i:=M to (N) do Begin If i MOD 2 0 then Soma:= Soma+i ; End; Writeln (Soma);
Readkey;
End.

{Exercício 3: Faça um programa