Напишите, пожалуйста, программу в Pascal.
Вводится радиус, найти: диаметр, площадь круга данного радиуса, длину окружности данного радиуса.

Программа считывает радиус \(r\), затем вычисляет диаметр, площадь круга и длину окружности.

program Krug;
var r, d, s, l: real;
begin
  readln(r);
  d := 2 * r;
  s := 3.14 * r * r;
  l := 2 * 3.14 * r;
  writeln('Диаметр: ', d:0:2);
  writeln('Площадь: ', s:0:2);
  writeln('Длина окружности: ', l:0:2);
end.

0 0 Пожаловаться