Dúvida aula18_1
3 participantes
Página 1 de 1
Dúvida aula18_1
program aula18_1;
uses crt;
var n, i, k: integer;
x: array [1..50] of integer;
begin
writeln ('Digite N');
readln (n); K:= 1;
x[1]:= 1; {1 divisor de todos os números}
for i:= 2 to n div do {serve para pegar a metade de n}
if n to mod i = 0 do {Divisível} <------ nesse ponto está dando erro, por que ?
begin {início do for}
k:= k+1;
x[k]:= i;
end; {fim do for}
k:= k+1;
x[k]:= n;
writeln ('Divisores');
for i:= 1 to k do
write (x[i], ' ' );
readkey;
end.
uses crt;
var n, i, k: integer;
x: array [1..50] of integer;
begin
writeln ('Digite N');
readln (n); K:= 1;
x[1]:= 1; {1 divisor de todos os números}
for i:= 2 to n div do {serve para pegar a metade de n}
if n to mod i = 0 do {Divisível} <------ nesse ponto está dando erro, por que ?
begin {início do for}
k:= k+1;
x[k]:= i;
end; {fim do for}
k:= k+1;
x[k]:= n;
writeln ('Divisores');
for i:= 1 to k do
write (x[i], ' ' );
readkey;
end.
SaulloHipolito- Estudante Aplicado
- Mensagens : 5
Data de inscrição : 08/04/2011
Re: Dúvida aula18_1
por causa desse 'to' ai entre o 'n' e o 'mod' , provavelmente
ps: nao testei aqui . mas tenta corrigir isso
if n mod i = 0 do
ps: nao testei aqui . mas tenta corrigir isso
if n mod i = 0 do
JMateus- Administrador
- Mensagens : 42
Data de inscrição : 05/04/2011
Re: Dúvida aula18_1
fora esse detalhe que o JMatheus disse, tem outro erro de sintaxe aí cara.
Não é "n div", o "div" sempre relaciona dois elementos. No mínimo "n div n".
Fora que o IF sempre termina com THEN e não DO.
Erro básico de sintaxe ;D
OBS: quem notou minha ausência... estou de cama, sinusite agravando e agravando... x.x
Não é "n div", o "div" sempre relaciona dois elementos. No mínimo "n div n".
Fora que o IF sempre termina com THEN e não DO.
Erro básico de sintaxe ;D
OBS: quem notou minha ausência... estou de cama, sinusite agravando e agravando... x.x
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|