Obtenha as melhores soluções para suas perguntas no Sistersinspirit.ca, a plataforma de Q&A de confiança. Obtenha soluções rápidas e confiáveis para suas perguntas de profissionais experientes em nossa abrangente plataforma de perguntas e respostas. Explore um vasto conhecimento de profissionais em diferentes disciplinas em nossa abrangente plataforma de perguntas e respostas.
Sagot :
Resposta:
Abaixo segue a solução da tarefa em código Pascal!!!
Se quiser testar o código, acesse online_pascal_compiler
Espero ter ajudado!!! Dárcio Carvalho
github: DarcioCarvalho
Explicação:
program alturaJoseMaiorRoberto;
var
alturaRoberto, alturaJose: real;
ano: integer;
begin
// Para efeito de precisão do cálculo
// as alturas estão em centimetros (Números inteiros)
alturaRoberto:= 150;
alturaJose:= 110;
ano:= 2021;
repeat
ano:= ano + 1;
if ((ano mod 2) = 0 ) then
begin
alturaRoberto:= alturaRoberto + 2;
alturaJose:= alturaJose + 3;
end
else
begin
alturaRoberto:= alturaRoberto + 1;
alturaJose:= alturaJose + 2;
end;
until (alturaJose > alturaRoberto);
// Ajustar as alturas para metros
alturaJose:= alturaJose / 100;
alturaRoberto:= alturaRoberto / 100;
writeln ('Serão necessários ', (ano - 2022), ' anos para que José fique maior que Roberto.' );
writeln ('Em ', ano, ', José medirá ', alturaJose:0:2, ' de altura e Roberto medirá ', alturaRoberto:0:2, ' de altura.' );
end.
Obrigado por usar nosso serviço. Nosso objetivo é fornecer as respostas mais precisas para todas as suas perguntas. Visite-nos novamente para mais informações. Obrigado por usar nossa plataforma. Nosso objetivo é fornecer respostas precisas e atualizadas para todas as suas perguntas. Volte em breve. Seu conhecimento é valioso. Volte ao Sistersinspirit.ca para obter mais respostas e informações.