Programme périmetre;
Uses wincrt
……………………………………………………………………………………………
……………………………………………………………………………………………
Begin
Write(‘saisir le diamètre d’un cercle=’);
Readln(d) ;
pr:=d*Pi;
writeln(‘le périmètre d`un cercle de diamètre=’,d:2:0,’cm est = ‘,pr:5:2,’cm’);
end.
[media-downloader media_id= »1558″ texts= »Télécharger votre série »]
