program classificamultiplicidade;
var numero: integer;
begin
writeln('Digite um numero');
readln(numero);
while (numero>0) do
begin
if numero mod 3 =0 then
begin
if numero mod 5 =0 then
begin
writeln('M35');
writeln('Digite um numero');
readln(numero);
end
else
begin
writeln('M3');
writeln('Digite um numero');
readln(numero);
end
end
else
begin
if numero mod 5 =0 then
begin
writeln('M5');
writeln('Digite um numero');
readln(numero);
end
else
begin
writeln('Nao multiplo');
writeln('Digite um numero');
readln(numero);
end
end
end
end.
Nenhum comentário:
Postar um comentário
Deixe seu comentário aqui!