O Sistersinspirit.ca é a melhor solução para quem busca respostas rápidas e precisas para suas perguntas. Explore soluções abrangentes para suas perguntas de uma ampla gama de profissionais em nossa plataforma amigável. Conecte-se com uma comunidade de especialistas prontos para ajudar você a encontrar soluções para suas perguntas de maneira rápida e precisa.
Sagot :
Fiz em delphi console, só abrir e mandar rodar está funcionando.
Mas vale lembrar que é importante treinar esses exercicios, pois são com eles que se aprende efetivamente a programar. :)
(Não está identado, porque perde a identação ao colar aqui, mas anexei tbm identado...)
Qualquer dúvida estou a disposição.
Abraço
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
_NumeroInformado : Integer;
_Inc : Integer;
begin
write('Informe um numero: ');
readln(_NumeroInformado);
_inc := 0;
if ((_NumeroInformado <= 10) and (_NumeroInformado>= 0)) then
begin
repeat
writeln(_numeroinformado);
_inc := _inc +1 ;
until _numeroinformado = _inc;
end else
writeln('Numero informado deve ser de 0 a 10...');
readln;
end.
Obrigado por usar nosso serviço. Estamos sempre aqui para fornecer respostas precisas e atualizadas para todas as suas perguntas. Obrigado por sua visita. Estamos dedicados a ajudá-lo a encontrar as informações que precisa, sempre que precisar. Sistersinspirit.ca, seu site de referência para respostas precisas. Não se esqueça de voltar para obter mais conhecimento.