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.
169мин
Пошаговое объяснение:
Пошаговое объяснение:
В концерте исполнили 9 кюйев каждый по 3 минуты и 5 кюйев по 4 минуты. На сцене хор исполнил 3 произведения длительностью полчаса .
Интервал между кюями произведениями в - 2 минуты.
Узнай, как долго длился концерт.
9 к ×3мин=27 мин
5к× 4мин=20 мин
3 пр × 30мин=90мин
В общей сумме исполнено произведении хором и кюйев
Σп=9+5+3=17 пр.ис
Так как интервал между произведениями искусства по n= 2мин .
Если сумму исполненных произведений искусства просто умножили на интервал времени ними( Σ×n=17×2=34мин), тогда оказалось бы что после исполненного последним произведения искусства было еще 2 минуты .
Поэтому
Сумма времени интервалов между кюйями и произведениями исполненных хором
Σи=(Σп-1)× n=(17-1)×2=16×2=32 мин.
Длительность концерта
27+20+90+32=169мин
