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
-1,2 * (-15) = (-1 * 1,2) * (-1 * 15) = (-1 * (-1)) * (1,2 * 15) = 1 * 18 = 18
-1,95 - 8,68 = -1 * (1,95 + 8,68) = 10,63
-17 - 19 + 5 = -1 * (17 + 19 - 5) = -21
-13,5 : 0,9 = -1 * (13,5 : 9/10) = -1 * (13,5 * 10 : 9) = -1 * (15) = -15
№2
-15 -14 -13 -12 ... -1 0 1 ... 15 16
Если посчитать будет 15 отрицательных, 1 ноль и 16 положительных. Итого 15 + 1 + 16 = 32 числа
№3
3(4x + 5) - (21 + 12x) = 12x + 15 - (21 + 12x) = 12x + 5 - 21 - 12x = 0 + 5 - 21 = -1 * (21 - 5) = -16
№4
4x - 2,55 = -2x + 1,05
4x + 2x = 2,55 + 1,05
6x = 3,6
x = 0,6
№5
Прикрепленный файл.
Пошаговое объяснение:
