Ваши друзья не знают про этот решебник.
Урок 14. Задание 4.
|
Program kryg; const pi=3.14; var r,s,l:real; begin r:=14; l:=r*2*pi; Writeln('Длина окружности радиусом ',r,' равна ',l); s:=sqr(r)*pi; Writeln('Площадь круга радиусом ',r,' равна ',s); End. |