Pascal

Trabalho da lista de exercícios em Pascal:
1) Faça um algoritmo que solicite ao usuário dois números e exiba o resultado da soma dos números lidos.

program Untitled; uses crt; var n1,n2:integer; soma:integer; begin write('Digite um numero:'); readln(n1); write('Digite outro numero:'); readln(n2); soma:=n1+n2; writeln('a soma eh;',soma); readkey; end. 2) Faça um algoritmo que solicite ao usuário dois números e exiba o resultado da soma dos números lidos.

program Untitled; uses crt; var n1,n2:integer; soma,subtracao,mult:integer; divisao:real; begin write('Digite um numero:'); readln(n1); write('Digite outro numero:'); readln(n2); soma:=n1+n2; subtracao:=n1-n2; mult:=n1*n2; divisao:=n1/n2; writeln('a soma eh;',soma); writeln('a subtracao eh;',subtracao); writeln('a multiplicacao eh;',mult); writeln('a divisao eh;',divisao:0:0); readkey; end.

3) Faça um algoritmo que solicite ao usuário um número qualquer e exiba o seu dobro.

Program Untitled; uses crt; var n1:integer; soma:integer; begin write('Digite um numero:'); readln(n1); soma:=n1+n1; writeln('o dobro eh;',soma); readkey; end.

4)Escrever um algoritmo para determinar o consumo médio de um automóvel sendo fornecidos a distância total percorrida pelo automóvel e o total de combustível gasto

program Untitled; uses crt; var n1,n2:integer; divisao:real; begin write('Digite a distancia percorrida:'); readln(n1); write('Coloque os litros de gasolina:'); readln(n2); divisao:=n1/n2; writeln('km;',divisao:0:0); readkey; end. 5) Faça um programa que troque o valor de A e B.

program Untitled; uses crt; var n1,n2,A,B:integer; begin write('O valor de A eh:'); readln(n1); write('O valor de B eh:'); readln(n2); writeln;
A:=n2;
B:=n1; writeln('o valor trocado eh;',A,B); readkey; end.

6)Faça um Programa que mostre a mensagem "Alo mundo" na tela. program Untitled; uses crt; begin write('Alo mundo');