да, тут только переукоренять "голову". на всякий случай поставьте пару листиков еще на укоренение. черенки у листиков и стволик зачистить, как уже написали. я бы не жалела, у головы оставила только совсем молодые листики (все равно без корней фиалка даже в тепличке большую массу не потянет). головы я никогда не ставлю в воду. и листики 50/50. "водяные" корешки - отличаются от корешков настоящих, фиалка еще раз при пересадке. кроме того, у головы остается короткий стволик, да еще после болезни - в воде часто загнивает. не бойтесь, они отлично приживаются. в идеале советую мох-сфагнум. он есть в продаже, выбирайте, чтоб не был темным и с запахом плесени. либо торфолин, либо торфяную таблетку раскрошить. но не в готовый грунт. и под пакетик. конечно, надо следить, чтоб конденсат не скапливался.
советую все остальные фиалки взять под контроль. сейчас период резкой смены условий: на подоконнике сквозняки, световой день сокращается. при том же поливе, что и летом - уже
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/12, 2/12, 3/12, 4/12, 5/12, 6/12 и т.д.