Exercício pascal

Exercício 01
Escreva um programa em Pascal que leia uma distância em metros e escreva esse mesmo valor em decímetros, centímetros e milímetros.

Programa exercício1

Var distancia, metro, decimetro, centmetro, milimetro: real

Begin

Writeln(‘entre com ao distancia’);
Readln(distancia);
Writeln(‘entre com metro’);
Readln(metro);
Decímetro:= distancia +10;
Centímetro:= distancia+100;
Milímetro:= distancia +1000;

End.

Exercício 02
Escreva um algoritmo que leia as notas de um aluno e calcule a média final deste aluno. Considere que a média é ponderada e as notas possuem pesos 2, 3 e 5.

Program exercicio2 ;

Var nota1, nota2, notatrabalho: integer; media: real; Begin Writeln('digite a nota1'); Readln(nota1); Writeln('digite a nota2'); Readln(nota2); Writeln('digite a nota do trabalho'); Readln(notatrabalho); Media:=(notatrabalho*nota1*3+nota2*5)/10; Writeln('media ponderada', media); If ( media >= 8)and(media=7) then; Writeln('obteve conceito B'); If (media >=6) and (media =5)and(media n2) end (n2 > n3) then writeln ('O maior eh: ', n1); if (n2>n1) and ( n1>n3) ; Writeln( “O maior eh:,n2); Writeln ('O maior eh: ', n3); Writeln;

end..

Exercício 04
Escreva um programa em Pascal que calcule todos os números ímpares entre 100 e 200. numeros : integer;

Begin

Writeln(‘Digite um numero’);
Readln(leia numero)
For i := 100 to 200 do ; begin soma := soma + numero; { acumulador } numero := i + 1; { contador } end writeln ('Soma dos impares entre 100 e 200 eh: ', soma); writeln; end.

Exercício 05
Escreva um programa em Pascal que leia um número n e imprima o fatorial de todos os números entre 1 e n. Por exemplo: Entrada: 7 Saída:
1! = 1
2! = 2
3! = 6
4! = 24
5! = 120
6! = 720
7! = 5040

numero, soma: integer continua: caracter

Begin

soma := 0 repeat until Readln (numero);