Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры, стоящие рядом. пример: 1234 1224 нет да кумир 7 класс

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.

пусть x - меньшая сторона, тогда (x+8) - большая

2(x+x+8)=28

2(2x+8)=28

2x+8=14

2x=6

x=3 (м) - меньшая сторона

3+8=11 (м) - большая сторона

s=3*11=33 (кв.м)

ответ: 33 кв.м

1)135/45=3 (в три раза быстрее читает)  2)240/3=80 (если переведешь часы в минуты)