Estou tentando aprender lógica de programação e no livro pede para realizar um exercício.
Ler um número N qualquer menor ou igual a 50 e apresentar o valor obtido da multiplicação sucessiva de N por 3 enquanto o produto for menor que 250 l(N*3;N*3*3;N*3*3*3;etc).
Não estou conseguindo nem montar um algoritmo decente veja abaixo. Precisava de alguma ajuda.
program sucessivo;
uses crt;
var
Contador,N2:integer;
begin
clrscr;
write('Digite um número menor que 50: ');readln(Contador);
while Contador<=50 do
Begin
Contador:=Contador+1;
N2:=Contador*Contador*Contador;
Writeln('O cubo de ',Contador,' é de ',N2);
while N2> 250 do
readln;
end;
end.
Pergunta
ucastro
Estou tentando aprender lógica de programação e no livro pede para realizar um exercício.
Ler um número N qualquer menor ou igual a 50 e apresentar o valor obtido da multiplicação sucessiva de N por 3 enquanto o produto for menor que 250 l(N*3;N*3*3;N*3*3*3;etc).
Não estou conseguindo nem montar um algoritmo decente veja abaixo. Precisava de alguma ajuda.
Editado por ucastroLink para o comentário
Compartilhar em outros sites
5 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.