Bem-vindo ao Sistersinspirit.ca, a melhor plataforma de perguntas e respostas para obter soluções rápidas e precisas para todas as suas dúvidas. Faça suas perguntas e receba respostas detalhadas de profissionais com ampla experiência em diversos campos. Experimente a conveniência de encontrar respostas precisas para suas perguntas de uma comunidade dedicada de especialistas.
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. Estamos sempre aqui para fornecer respostas precisas e atualizadas para todas as suas perguntas. Obrigado por escolher nosso serviço. Estamos dedicados a fornecer as melhores respostas para todas as suas perguntas. Visite-nos novamente. Obrigado por confiar no Sistersinspirit.ca. Volte novamente para obter mais informações e respostas.