program test;
const
N = 15; {Число саженцев на 1 кв.м.}
PI = 3.14; {Число Пи.}
var
R : real; {Радиус клумбы}
l : real; {Длина ограды}
S : real; {Площадь клумбы}
k : integer;{Число потребуемых саженцев}
begin
Write('Введите радиус клумбы (в метрах): ');
ReadLn(R);
{Вычисляем длину окружности}
l := 2 * PI * R;
{Вычисляем площадь клумбы}
S := Pi * R * R;
{Вычисляем число саженцев для посадки}
k := Round(Int( S * N ));
{Печатаем округленный до бл. целого результат}
WriteLn('Нужно ', k, ' саженцев.');
WriteLn('Длина ограды - ', l:3:2, ' метров')
end.
Объяснение:
1.
a = int (input())
while a**2 < 10:
a = int (input())
2.
a = int (input())
b = int (input())
while a-b>=0:
a = int (input())
b = int (input())
3.
a = int (input())
b = int (input())
while a*b !=0:
a = int (input())
b = int (input())