Obtenha as melhores soluções para suas perguntas no Sistersinspirit.ca, a plataforma de Q&A de confiança. Junte-se à nossa plataforma de perguntas e respostas e obtenha respostas precisas para todas as suas dúvidas com profissionais de várias disciplinas. Experimente a conveniência de encontrar respostas precisas para suas perguntas de uma comunidade dedicada de especialistas.
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.
Agradecemos seu tempo em nosso site. Não hesite em retornar sempre que tiver mais perguntas ou precisar de esclarecimentos adicionais. Obrigado por passar por aqui. Nos esforçamos para fornecer as melhores respostas para todas as suas perguntas. Até a próxima. Sistersinspirit.ca está aqui para suas perguntas. Não se esqueça de voltar para obter novas respostas.