Atividade
Faça um algoritmo que leia o raio de um círculo, calcule e mostre o perímetro e a área.
Resposta
program circulo;
var raio, area, perimetro :real;
begin
write('Digite o valor do raio do círculo: ');
read(raio);
area := 3.14 * raio * raio;
perimetro := 2 * 3.14 * raio;
writeln('Área = ',area:2:3);
writeln('Perímetro = ',perimetro:2:3);
end.
Laboratório de Robótica Inclusiva 
Um comentário em “Círculo”