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.
3x + 6
Пошаговое объяснение:
Прямая пройдёт через точку (2 ; 0). Значит в этой точке она пересечёт ось OX.
Параллельность прямых будет задаваться условием, что y = 3x + k, где k - коэффициент, который нужно определить. 3x - отвечает за такой же угол наклона между прямой и осью OX.
Значит 0 = 3х - k. Подставив x = 2, получим, что k = 6.
Значит уравнение примет вид: 3x + 6.
(Для понимания постройте прямую, данную в примере и прямую, которую мы получили в ответе. Вы заметите, что коэффициенты k - координата точки пересечения оси OY, а коэффициенты при X (3x) - коэффициент наклона примой к оси OX).
значит, 30 д.е. - стоят эти "лишние" 15 м проволоки 2-го куска
2) 30 : 15 = 2 (д.е.) - стоимость 1 м лески
3) 30 · 2 = 60 (д.е.) - стоит 1-й кусок
4) 45 · 2 = 90 (д.е.) - стоит 2-й кусок
ответ: 60 д.е. и 90 д.е.