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. 8-дің 5-ке қатынасын жаз:
А) hello_html_m60581b31.gif
В) hello_html_7fab0216.gif
С) 8+5
D) hello_html_m4838802b.gif
E)hello_html_46bb7ee7.gif
2. Амалды орында: (174,29+318,67):78
А) 78,8
В) 63,2
С) 6,32
D) 6
E) 2
3. Көшенің ені 50м. Оның ұзындығының еніне қатынасы 200-ге тең. Көшенің ұзындығы неше километр?
А) 100 км
В) 40 км
С) 30 км
D) 20 км
E) 10 км
4. Тік төртбұрыштың периметрі 42 см. Оның ұзындығының еніне қатынасы 4:3 қатынасындай. Тік төртбұрыштың ауданын табыңдар:
А) 118 см2
В) 108 см2
С) 128 см2
D) 180 см2
E) 18 см2
