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.
Если делимое меньше делителя (т.е. делим меньшее число на большее), то неполное частное всегда будет равно нулю, а остаток равен делимому.
3 : 7 = 0 (ост.3) ⇒ 7 * 0 + 3 = 3
15/18 = 15 : 18 = 0 (ост.15) ⇒ 18 * 0 + 15 = 15
396 : 854 = 0 (ост.396) ⇒ 854 * 0 + 396 = 396
5792 : 6832 = 0 (ост.5792) ⇒ 6832 * 0 + 5792 = 5792
94573/96821 = 94573 : 96821 = 0 (ост.94573) ⇒
⇒ 96821 * 0 + 94573 = 94573
847736/858419 = 847736 : 858419 = 0 (ост.847736) ⇒ 858419 * 0 +
+ 847736 = 847736
ответ:
|2(-3)-3| 5+(-3)|=|- 9|2|= 18
Пошаговое объяснение:
Как то так