Блог учителя Информатики

Решение задачи Begin7


Условие задачи:

Найти длину окружности L и площадь круга S заданного радиуса R:
L = 2·π·R, S = π·R2.
В качестве значения π использовать 3.14.


uses
  PT4;

const
  pi = 3.14;

var
  r, l, s: real;

begin
  Task('Begin7');
  read(r);
  l := 2 * pi * r;
  s := pi * sqr(r);
  write(l, s);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий