Question

Elabore um programa que leia um número de entrada ( n ) que indicará a
quantidade de números a serem lidos. Em seguida, leia n números (conforme o
valor informado anteriormente) e imprima o dobro de cada um.

Answer 1

ALGORITMO EM PASCAL program numeros;
uses Crt;
var
num,nq,x,drob:integer;
begin
   { Seção de Comandos}
   writeln('Digite a quantidade de números que serão lidos:');
   readln(nq);
   for x := 1 to nq do begin
      writeln('Digite o ',x,'º número:');
      readln(num);
      drob:=num+num;
      writeln('O dobro do número de ' ,num, ' é:', drob);
   end;
end.

ALGORITMO EM PORTUGOL VISUALG

algoritmo "numeros"

var
num,nq,x,drob:inteiro
inicio
// Seção de Comandos
escreval("Digite a quantidade de números que serão lidos:")
leia(nq)
para x de 1 ate nq faca
   escreval("Digite o ",x,"º número:")
   leia(num)
   drob:=num+num
   escreval("O dobro do número de " ,num, " é:", drob)
fimpara
fimalgoritmo