Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Как в Паскале записать решить задачу: найти площадь круга и длину окружности если дан радиус. В записи в Паскале надо использовать оператор READLN.

Ответ оставил Гость

//Как в Паскале записать решить задачу: найти площадь круга
//и длину окружности если дан радиус.
//В записи в Паскале надо использовать оператор READLN.

var r,s,p  : real;
begin
  Writeln (Введите радиус искомой окружности);
  Readln (r);
  p:=2*3.14*r;
  s:=3.14*sqr (r);
  Writeln (Длина окружности находится по формуле p=2πr и равна ,p);
  Writeln (Площадь круга находится по формуле S=π r^2 и равна ,s);
end.