Lista de exercicios em pascal

LINGUAGEM DE PROGRAMAÇÃO PASCAL
1ª LISTA DE EXERCICIOS/ Aluna: Geórgia Araujo – Matricula: 200954188 – NAI3

1. Ler dois números inteiros e imprimir a soma.

program soma; uses crt; var num1:integer; num2:integer; result:integer;

begin clrscr; writeln('Digite o 1º numero: '); readln(num1); writeln('Digite o 2º numero: '); readln(num2);

result:=num1+num2;

writeln('O resultado da soma eh: ',result);

readkey; end. 2. Ler dois números inteiros e imprimir o produto.

program produto; uses crt; var num1:integer; num2:integer; result:integer; begin clrscr; writeln('Digite o 1º numero: '); readln(num1); writeln('Digite o 2º numero: '); readln(num2);

result:=num1*num2;

writeln('O resultado do produto eh: ', result);

readkey; end. 3. Ler um número real e imprimir a terça parte deste número.

program T_parte; uses crt;

var numero, Terca_parte:integer;

begin clrscr; writeln('Digite um numero: '); readln(numero); Terca_parte:=numero/3;

writeln('A terca parte do numero eh: ',Terca_parte); readkey; end.

4. Entrar com dois numeros rais e imprimir a media aritmética.

program media_aritmetica; uses crt; var N1,N2,MA:real;

begin clrscr; writeln('Digite um numero: '); readln(N1); writeln('Digite outro numero: '); readln(N2);

MA:=(N1+N2)/2;

writeln('A media aritmetica eh: ', MA);

readkey; end. 5. Entrar com dois números inteiros e imprimir a seguinte saída: Dividendo, Divisor, Quociente e Resto.

program divisao; uses crt; var Dividendo, Divisor, Quociente, Resto: integer;

begin clrscr; writeln('Digite o Dividendo: '); readln(Dividendo); writeln('Digite o Divisor: '); readln(Divisor);

Quociente:=Dividendo div Divisor; Resto:=Dividendo mod Divisor;

writeln('O dividendo eh: ',dividendo); writeln('O divisor eh: ',divisor);
writeln('O