Pasc

alProgramas em Pascal
Resolução – Lista 01
01. Faça um algoritmo que leia os valores A, B, C e diga se a soma de A + B é menor que C. program valores; var a, b, c, soma:real; begin writeln('Digite o valor para a:'); readln(a); writeln('Digite o valor para b:'); readln(b); writeln('Digite o valor para c:'); readln(c); soma:=a+b; if soma<=c then begin writeln('A soma de A + B é menor que C'); readln; end else writeln('A soma de A + B eh maior que C'); readln; end.
02. Faça um algoritmo que leia dois valores inteiros A e B se os valores forem iguais deverá se somar os dois, caso contrário multiplique A por B ao final do calculo atribuir o valor para uma variável C. program valores_A_B; var a, b:integer; c:real; begin writeln('Digite o valor para a:'); readln(a); writeln('Digite o valor para b:'); readln(b); if a=b then begin c:=a+b; writeln('A soma de A + B foi atribuida a C:',c:5:2); readln; end else begin c:=a*b; writeln('A multiplicacao de A x B foi atribuida a C:',c:5:2); readln; end end. 03. Faça um algoritmo que leia o nome e a três notas de uma disciplina de um aluno e ao final escreva o nome do aluno, sua média e se ele foi aprovado a média é 8. program Media_alunos; const ap=8; var nota1, nota2, nota3, media:real; nome:string; begin writeln('Digite o nome do aluno:'); readln(nome); writeln('Digite a nota1:'); readln(nota1); writeln('Digite a nota2:'); readln(nota2); writeln('Digite a nota3:'); readln(nota3); media:=(nota1+nota2+nota3)/3; if media >=ap then begin writeln('Nome do aluno:',nome); readln; writeln('A media do aluno eh:',media:5:2,'APROVADO' ); readln; end else begin writeln('Nome do aluno:',nome); readln; writeln('A media do aluno eh:',media:5:2,'APROVADO' ); readln; end end. 04. Faça um algoritmo que leia 3 números inteiros e imprima o menor deles. program Numeros_inteiros; var n1, n2, n3:integer; begin writeln('Digite o primeiro numero:');
readln(n1);