7046
* 43
21138
+28184
302 978
пояснение:
сначала мы все числа по очереди умножаем на цифру три, затем всё числа по очереди умножаем на цифру 4
6*3=18
8 пишем 1 запоминаем
4*3=12,а так как мы запомнили один, то прибавляем 1 и получаем 13 и запоминаем 1
0*3=0,так как запомнили один подписываем 1
7*3=21
далее
6*4=24, 4 пишем, 2 запоминаем
4*4=16,так как 2 запоминали получаем 18, 8 пишем, 1 запоминаем
0*4=0 и к 0 прибавляем 1 так как запоминали
7*4=28
первое число пишем как есть, а второе пишем чуть дальше чем второе где то на одну цифру вперед, как я в принципе и сделала и дальше просто складываем
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.
