1).ответ:8 дней фермер пахал поле.
2).Пусть х - время, за которое Иван может вспахать все поле.
Тогда х+5 - время, за которое все поле может вспахать Григорий.
Примем всю площадь поля за 1.
Тогда 1/х - производительность Ивана.
1/(х+5) - производительность Григория.
1/х + 1/(х+5) - производительность Ивана и Григория, работающих вместе что соответствует 1/6.
Уравнение
1/х + 1/(х+5) = 1/6
Умножим обе части неравенства на 6х(х+5), чтобы избавиться от знаменателей.
6х(х+5)/х + 6х(х+5)/(х+5) = 6х(х+5)/6
6(х+5) + 6х = х(х+5)
6х+30 + 6х = + х^2 + 5х
х^2 - 7х - 30 = 0
D = 49 -4(-30) = 49 + 120 = 169
√D = √169 = 13
x1 = (7-13)/2 = -6/2 = -3 - не походит, поскольку время не может отрицательным.
х2 = (7+13)/2 = 20/2 = 10 часов - время, за которое Иван вспашет все поле.
ответ: 10 часов
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.
