Azulejos

Atividade

Faça um algoritmo que leia as dimensões de uma sala retangular (comprimento e largura) e as dimensões do azulejo quadrado (lado) e informe quantos azulejos são necessários para cobrir o piso da sala.

Resposta

program azulejos;
var comp, larg, lado, qtde: real;
begin
  write('Digite o comprimento da sala: ');
	read(comp);
	write('Digite a largura da sala: ');
	read(larg);
	write('Digite a medida do lado do azulejo: ');
	read(lado);
	qtde := (comp*larg)/(lado*lado);
	writeln('Quantidade de azulejos = ',qtde:2:1);
end.

Um comentário em “Azulejos

Deixe um comentário