Lista de computação pascalzim

Lista de exercícios 3

Exercício 1. Program Pzim ; var n1: integer; Begin writeln ('Digite um valor '); read (n1); writeln('O valor digitado foi:',n1); End.

Exercício 2
Program Pzim ; var n1, n2: integer; Begin writeln ('Digite um valor '); read (n1); writeln('O valor digitado foi:',n1); writeln ('Digite outro valor'); read (n2); writeln ('O valor digitado foi:',n2);
End.

Exercício 3
Program Pzim ; var n1, n2: integer; soma: integer; Begin writeln ('Digite o primeiro valor:'); read (n1); writeln ('Digite o segundo valor:'); read (n2); soma:= n1+n2; writeln ('O resultado foi:',soma); End.

Exercício 4
Program Pzim ; var n1, n2, n3: integer; soma: integer; Begin writeln ('Digite o primeiro valor:'); read (n1); writeln ('Digite o segundo valor:'); read (n2); writeln ('Digite o terceiro valor:'); read (n3); soma:= n1+n2+n3; writeln ('O resultado foi:',soma); End.

Exercício 5
Program Pzim ; var n1, n2, n3: integer; soma: integer; Begin writeln ('Digite o primeiro valor:'); read (n1); writeln ('Digite o segundo valor:'); read (n2); writeln ('Digite o terceiro valor:'); read (n3); soma:= (n1+n2)*n3; writeln ('O resultado foi:',soma); End.

Exercício 6
Program Pzim ; var n1, n2, n3,n4: integer; soma: integer; Begin writeln ('Digite o primeiro valor:'); read (n1); writeln ('Digite o segundo valor:'); read (n2); writeln ('Digite o terceiro valor:'); read (n3); writeln ('Digite o quarto valor:'); read (n4); soma:= (n1+n2+n3)div n4; writeln ('O resultado foi:',soma); End.

Exercício 7
Program Compras;