Если намазать жёлтого плюхря горчицей, то утром следующего дня он разделится на два. Утром третьего дня те два жёлтых плюхря тоже разделятся на два. Это будет продолжаться целую неделю. Если намазать синего плюхря горчицей, то утром третьего дня их станет два. Утром пятого и седьмого дня те плюхри, которые получились из намазанного горчицей синего плюхря, тоже разделятся на два.
Если красного плюхря намазать горчицей, то делиться он будет как синий, только каждый раз не на двух, а на трёх отдельных плюхрей.
Сколько у нас будет плюхрей в середине 7-го дня, если мы намажем горчицей двух жёлтых, одного синего и трёх красных плюхрей
USES CRT;
VAR A:array[1..100] of Longint;
s:integer;
x,i:Longint;
BEGIN
CLRSCR;
Repeat
Writeln('Введите 7-ми значное число');
Readln(x);
i:=x;
s:=0;
while i>0 do
begin
i:=i div 10;
s:=s+1;
end;
if s > 7 then Writeln('Вы ввели число больше');
if s < 7 then Writeln('Вы ввели число меньше');
Writeln;
until s=7;
for i:=1 to 7 do
begin
A[i]:=x mod 10;
x:=x div 10;
end;
for i:=1 to 7 do
Write(A[i],' ');
READLN;
END.