Написать программу вводит две стороны прямоугольника (целые числа). определить радиус окружности (с точностью до четырех знаков после запятой), описать около него и его периметр. сколько окружностей можно нанизать на нитку, с длинной, ровной периметру прямоугольника.

Из условий я не понял про нанизывание на нитку окружностей. остальное сделал на языке паскаль. на своём компьютере не проверял, т.к. данный язык у меня не установлен. на фото я укзал рисунок моего понимания условий . - - - - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - var       a,b : integer; {описываем длины сторон}       r,p : real; {описываем радиус и периметр} begin     write ('введите длину первой стороны прямоугольника:   ');     readln(a);     write ('введите длину второй стороны прямоугольника:   ');     readln(b);     r: =(sqrt(a*a+b*b))/2; {находим радиус}     r: =trunc(r*10000)/10000; {округляем до четырёх знаков после запятой}     p: =(a+b)*2; {находим периметр прямоугольника};     writeln('радиус окружности равен:   ',r);     writeln('периметр прямоугольника  равен: ',p); end.

алфавит

фывфыфввфыв : ): : )): )): )