Прогнозирование погодные климатические условия моделирование ядерных испытаний изучение космоса что это? ​

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.

Пятьсот тридцать одна тысяча двадцать, два миллиона сто сорок тысяч пятьсот тридцать, девятьсот девять миллиардов четыреста сорок четыре миллиона сто двадцать девять тысяч восемь, два миллиона восемьсот пятьдесят тысяч три, семьдесят три миллиона триста две тысячи сто, один миллиард двести тридцать два миллиона шестьсот семьдесят одна тысяча семьдесят четыре, девяносто три миллиона четыреста пять тысяч два

Пошаговое объяснение:

Пятьсот тридцать одна тысяча двадцать, два миллиона сто сорок тысяч пятьсот тридцать, девятьсот девять миллиардов четыреста сорок четыре миллиона сто двадцать девять тысяч восемь, два миллиона восемьсот пятьдесят тысяч три, семьдесят три миллиона триста две тысячи сто, один миллиард двести тридцать два миллиона шестьсот семьдесят одна тысяча семьдесят четыре, девяносто три миллиона четыреста пять тысяч два