Exercícios Pascal
Seminário: Exercícios Pascal. Pesquise 862.000+ trabalhos acadêmicosPor: SalenFabricio • 29/3/2014 • Seminário • 643 Palavras (3 Páginas) • 264 Visualizações
Pascal Exercícios
17. 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.
program ex17;
uses crt;
var i, a, cont: integer;
begin
clrscr;
cont:=0;
for i:= 1 to 5 do
begin
write('Informe um valor: ');
readln(a);
if a<0 then cont:=cont+1; end; writeln('Existem ',cont,' valores negativos.'); readkey; end.
18. Escrever um algoritmo/programa em Pascal que escreve os números pares entre 100 e 200.
program ex18;
uses crt;
var i: integer;
begin
clrscr;
writeln('Os numeros pares de 100 a 200 sao: ');
for i:= 100 to 200 do
begin
if i mod 2 = 0 then
begin
write(i:8);
end;
end;
readkey;
end.
19. Escrever um algoritmo/programa em Pascal que escreve a soma dos números entre 0 e 100.
program ex19;
uses crt;
var i, soma: integer;
begin
clrscr;
soma:=0;
for i:= 0 to 100 do
begin
soma:= soma + i;
end;
writeln('A soma dos numeros de 0 a 100 e: ', soma);
readkey;
end.
20. Escrever um algoritmo/programa em Pascal que escreve a soma dos números pares entre 0 e 100.
program ex20;
uses crt;
var i, soma: integer;
begin
clrscr;
soma:=0;
for i:= 0 to 100 do
begin
if i mod 2 = 0 then
begin
soma:= soma + i;
end;
end;
writeln('A soma dos numeros pares de 0 a 100 e: ', soma);
readkey;
end.
21. Escrever um algoritmo/programa em Pascal que escreve a soma dos números múltiplos de 7 entre 100 e 200.
program ex21;
uses crt;
var i, soma: integer;
begin
clrscr;
soma:=0;
for i:= 100 to 200 do
begin
if i mod 7 = 0 then
begin
soma:= soma + i;
end;
end;
writeln('A soma dos numeros multiplos de 7 de 100 a 200 e: ', soma);
readkey;
end.
22. 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.
program ex22;
uses crt;
var i, soma: integer;
begin
clrscr;
soma:=0;
for i:= 100 to 200 do
begin
if i mod 13 <> 0 then
begin
soma:= soma + i;
end;
end;
writeln('A soma dos numeros nao multiplos de 13 de 100 a 200 e: ', soma);
readkey;
end.
23. 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
program ex23;
uses crt;
var i, x, cont1, cont2, cont3, cont4: integer;
begin
clrscr;
cont1:=0;
...