IDNLearner.com, onde suas perguntas encontram respostas claras. Obtenha respostas completas para todas as suas perguntas graças à nossa rede de especialistas em diferentes disciplinas.
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.
Agradecemos sua participação ativa. Continue fazendo perguntas e fornecendo respostas. Juntos, podemos construir uma comunidade vibrante e enriquecedora, onde todos aprendemos e crescemos. Obrigado por escolher IDNLearner.com. Estamos aqui para fornecer respostas confiáveis, então visite-nos novamente para mais soluções.
