Lista de exercícios - não é oficial, apenas um estudo extra

Segue as questões.


Lista de exercícios


1º - Escrever um algoritmo/programa em Pascal que lê 5 valores para a, um de cada vez, e conta quantos destes valores são negativos, escrevendo esta informação.

2º - Escrever um algoritmo/programa em Pascal que escreve os números pares entre 100 e 200.

3º - Escrever um algoritmo/programa em Pascal que escreve a soma dos números entre 0 e 100.

4º - Escrever um algoritmo/programa em Pascal que escreve a soma dos números pares entre 0 e 100.

5º - Escrever um algoritmo/programa em Pascal que escreve a soma dos números ímpares entre 0 e 100.

6º - Escrever um algoritmo/programa em Pascal que escreve a soma dos números múltiplos de 7 entre 100 e 200.

7º - Escrever um algoritmo/programa em Pascal que escreve a soma dos números que não são múltiplos de 13 entre 100 e 200.

8º - Escrever um algoritmo/programa em Pascal que lê 20 valores, um de cada vez, e conta quantos deles estão em cada um dos intervalos [0, 25], (25, 50], (50, 75], (75, 100], escrevendo esta informação

9º - Escrever um algoritmo/programa em Pascal que lê um número e escreva se ele "é primo" ou "não é primo"

10º - Escrever um algoritmo/programa em Pascal que escreve os números primos entre 100 e 200, bem como a soma destes números.


Bom estudos a todos

Exercício 1

Program negativos ;

var
laco,negativo,cont:integer;

Begin
clrscr;
negativo:=0;
for laco:= 1 to 5 do
begin
writeln ('Informe um número inteiro qualquer');
read (negativo);
if negativo < 0 then
cont:=cont+1;
end;
writeln ('Existem exatamente ',cont,' número(s) negativo(s)');

End.

Exercício 2

program pares;

var
laco,cont,soma:integer;

begin
clrscr;
soma:=0;
for laco:= 100 to 200 do
begin
if laco mod 2 = 0 then
begin
write (laco:10);
end;
end;
end.