visualg

[Kewin Ramirez 0]

Alguém poderia me ajudar

 

 

 

6) faça um programa que exiba na tela a tabuado de qualquer número digitado

7) elaborar um programa que apresente no final o somatório dos valores pares existentes entre 1 até 100

8) faça um algoritmo onde o usuário digita 5 números. ao final exibir

a) a média dos números digitado

B) o maior número

c) a posição onde foi digitado o maior número

d) a quantidade de números ímpares

 

9) desenvolva um programa para exibir na tela todos os números divisível pelo número digitado

[r_schneider 0]

6) faça um programa que exiba na tela a tabuado de qualquer número digitado:

Program Pzim ;

var

num,i:integer;

Begin

writeln('Qual numero voce deseja saber a tabuada?');

readln(num);

writeln('A tabuada de ',num,' é:');

for i:=0 to 10 do

writeln(num,'x',i,'=',i*num);

readkey;

End.

8) faça um algoritmo onde o usuário digita 5 números. ao final exibir
a) a média dos números digitado
B) o maior número
c) a posição onde foi digitado o maior número
d) a quantidade de números ímpares

Program Pzim ;

var

i,media,num,nummaior,posicao,impar:integer;

mediafinal:real;

Begin

for i:=1 to 5 do

begin

writeln('Informe um numero ',i);

readln(num);

media:=media+num;

mediafinal:=media/5;

if (num > nummaior) then

begin

nummaior :=num;

posicao:=i;

end;

if (num mod 2 = 1) then

begin

impar:=impar+1;

end;

end;

writeln('O maior numero é ',nummaior);

writeln('A media entre os numeros é ',mediafinal);

writeln('A posicao do maior numero é ',posicao);

writeln('Quantidade de numeros impares é ',impar);

End.

7) elaborar um programa que apresente no final o somatório dos valores pares existentes entre 1 até 100

Program Pzim ;

var

i,soma:integer;

Begin

for i:=1 to 100 do

begin

If (i mod 2 = 0) then

begin

soma:=soma+i;

end;

end;

writeln('A soma dos numeros pares de 1 a 100 é ',soma);

End.