Ладно попробуем так. Начало решение у товарища верное. Но вот дальше вообще говоря, нам не хватает данных. Могу только решить, с дополнительными допущениями. Итак вначале также составляем пропорцию. тогда: Откуда находим х (площадь луга в га) А далее, требуют периметр, а не площадь. 1га это площадь участка 100х100 м т.е. 1 га=10000 м². Тогда площадь луга, выраженная в м² S=735000 м² Пусть луг квадратный тогда сторона квадрата: А периметр, соответственно: [м]
А вот если луг, скажем, круглый, то периметр (длина окружности (изгороди)) найдем так: Радиус равен: Соответственно длина м Как видно, периметр будет зависеть от формы луга. Чтобы его однозначно найти для прямоугольника, надо задать хотя бы соотношение сторон.
var b,i,z,k: integer;
a: array[1..10000] of integer;
begin
read(b);
z: =0;
k: =0;
while b> 0 do
begin
z: =z+1;
a[z]: = b mod 10;
b: =b div 10;
end;
for i: =2 to z-1 do
if a[i]=a[i-1] or a[i]=a[i+1] then
k: =1;
if k=1 then writeln (‘да’)
else writeln (‘нет’);
end.
второй способ:
var a,b,c: integer;
begin
read(a);
k: =0;
c: =10; // это должно быть обязательно число, но не цифра
while a > 0 do
begin
b: =a mod 10;
a: =a div 10;
if b=c then k: =1;
c: =b;
end;
if k=1 then writeln (‘да’)
else (‘нет’);
end.
Итак вначале также составляем пропорцию.
тогда:
Откуда находим х (площадь луга в га)
А далее, требуют периметр, а не площадь.
1га это площадь участка 100х100 м т.е. 1 га=10000 м².
Тогда площадь луга, выраженная в м²
S=735000 м²
Пусть луг квадратный
тогда сторона квадрата:
А периметр, соответственно:
А вот если луг, скажем, круглый, то периметр (длина окружности (изгороди)) найдем так:
Радиус равен:
Соответственно длина
Как видно, периметр будет зависеть от формы луга. Чтобы его однозначно найти для прямоугольника, надо задать хотя бы соотношение сторон.