Question

1. Вычислить радиус окружности, зная длину окружности. Написать программу в паскале.
с=31.4000
2. Напишите программу, которая вычисляет площадь и периметр прямоугольника по длинам двух его сторон.
Очень нужно.

Answer 1

1.

program rad;

var

 c : real;

begin

 writeln('Введите чему равна длина окружности: ');

 readln(c);

 writeln( 'Радиус окружности равен ' ,c /(2 * PI))

end.

2.

program per;

var

a,b : real;

begin

  writeln('Введите чему равны стороны прямоугольника: ');

  readln(a,b);

  writeln('Площадь прямоугольника равна: ', a * b);

  write('Периметр треугольника равен: ', 2*a+2*b);

end.