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.
Поделитесь своими знаниями, ответьте на вопрос:
63/5: 6-8, 016*0, 125+2/15*0, 03)*2 3/4. мне заранее
(6 3/5:6 - 8,016*0,125+2/15*0,03)*2 3/4 = (1,1-1,002+0,0039)*2,75=0,102*2,75 =
= 0,28
6 3/5 = 33/5 = 6,6
2/15 = 0,13
2 3/4=11/4= 2,75
1)6,6:6 = 1,1
2)-8,016*0,125 = -1,002
3) 0,13*0,03 = 0,0039
4) 1,1-1,002+0,0039=0,1019 = 0,102
5) 0,102*2,75 = 0,28
0,28=28/100 = 7/25
ответ: 0,28 или 7/25.