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)55% они уже проехали, значит осталось 100-55=45%. мы знаем, что эти 45% =180 км. значит, весь путь (180/45)*100=400 км.
2)для начала, мы найдём число, которое составляет 75% от неизвестного. запишем условие для конечного действия:
х - 75% = 80.
число х в данном случае составляет 100%. отняв 75%, у нас получилось число 80, которое по всей видимости и занимает 25%. теперь, мы можем составить пропорцию:
х - 100%,
80 - 25%.
выразим и найдем х:
х = (80 * 100) / 25 = 320.
теперь от 320 найдем 75% и убедимся, что все данные верны:
320 - 100%,
у - 75%,
у = 320 * 75 / 100 = 240.
проверим условие 100% - 75% = 25%: 320 - 240 = 80.
ответ: начальное число - 320.
пошаговое объяснение:
1) рівняння сторони AB.
Вектор АВ = (2-(-1)); 4-(-6)) = (3; 10).
Уравнение АВ: (x + 1)/3 = (y + 6)/10
или в общем виде 10x -3y - 8 = 0.
В виде с угловым коэффициентом y = (10/3)x - (8/3). k(AB)= 10/3.
2) висоти СК.
k(CK) = -1/k(AB) = -1/(10/3) = -3/10.
Уравнение СК: у = (-3/10)х + в. Для определения слагаемого "в" подставим координаты точки С:
3 = (-3/10)*6 + в, отсюда в = 3 + (18/10) = 4,8.
Уравнение СК: у = (-3/10)х + 4,8.
3) Рівняння медіани ВМ. A(-1,-6)B(2,4)C(6,3)
Находим координаты точки М как середины стороны АС.
М = (A(-1,-6)+C(6,3))/2 = (2,5; -1,5).
Вектор ВМ = (2,5-2; -1,5-4) = (0,5; -5,5).
Уравнение ВМ: (x- 2)/0.5 = (y - 4)/(-5.5) или в целых числах
(x- 2)/1 = (y - 4)/(-11).