К ЧЁРТУ НА КУЛИЧИКИ
Фразеологизм “У черта на куличках” значениеВыражение “У черта на куличках” – Начнем с того, что никакого слова кулички в русском языке нет. От кулича выйдут куличики, от кулика — кулички. На самом же деле не на кулички надо посылать, а на кулижки. Вот тогда справедливость восторжествует, и мы сможем приступить к объяснению этого истинно русского оборота.
Кулиги и кулижки были очень известными и весьма употребительными словами на Севере России. Когда хвойный лес «ослабевает», там появляются прогалины, поляны. На них мгновенно начинают расти трава, цветы и ягоды. Эти лесные острова и назывались кулигами. Еще с языческих времен на кулигах совершались жертвоприношения: Жрецы закалывали оленей, овец, телок, жеребцов, все наедались досыта, Напивались допьяна.
Когда же пришло на Русь христианство и стало оно теснить язычество, пришел на кулигу крестьянин, поставил избу, стал сеять рожь, ячмень, появлялись целые деревенские артели. Когда же жить станови лось теснее, уходили от стариков дети и племянники, да порой так далеко, что и вести достигать переставали, жили, как у черта на куличках.
Другая версия:
Фразеологизм у черта на куличках это: страшно далеко, где-то в дикой глуши. Общий смысл слов понятен каждому, а вот что такое «кулички», не знает почти никто.
Кулички – испорченное финского корня слово, «кулиги», «кулижки», давно вошедшее в русскую речь. Так на Севере назывались лесные полянки, лужки, болотца. Здесь, в лесистой части страны, поселенцы далекого все время вырубали в лесу «кулижки» – площадки для распашки и покоса.
В старых грамотах постоянно встречается такая формула: «И вся та земля, покуда топор ходил и коса ходила». Земледельцу часто приходилось на свою ниву отправляться в страшную глушь, на самые дальние «кулижки», хуже ближних разработанные, где, по тогдашним суеверным представлениям, в болотах и буреломах водились и лишние, и черти, и всякая лесная нечисть.
Так и получили обычные слова свое второе, переносное значение: очень далеко, на краю света.
1)
var
a: array[1..20] of integer;
i, j, k: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(71) - 40;
write(a[i]:4);
end;
writeln;
writeln('удалили элементы из одинаковых цифр включая однозначные');
i := 1;
k := 10;
while i <= k do
begin
if (abs(a[i]) < 10) or ((a[i] mod 10) = (a[i] div 10)) then
begin
if i = k then k := k - 1
else
begin
for j := i to k - 1 do a[j] := a[j + 1];
k := k - 1;
end;
end
else
i := i + 1;
end;
for i := 1 to k do
write(a[i]:4);
end.
2)
var
a: array[1..20] of integer;
i, j, k,n: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(71) - 40;
write(a[i]:4);
end;
writeln;
writeln('введите k(не должно содержать 1)=');
readln(k);
writeln('вставляем k перед всеми элементами где есть цифра 1');
i := 1;
n := 10;
while i <= n do
begin
if (abs(a[i]) mod 10=1) or (abs(a[i]) div 10=1) then
begin
for j:=n+1 downto i+1 do a[j]:=a[j-1];
a[i]:=k;
n:=n+1;
i:=i+1;
end;
i := i + 1;
end;
for i := 1 to n do
write(a[i]:4);
end.
3)
var
a: array[1..10] of integer;
i, j, k: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(71) - 40;
write(a[i]:4);
end;
writeln;
writeln('меняем местами три первых и три последних элемента');
for i:=1 to 3 do
begin
k:=a[i];
a[i]:=a[i+7];
a[i+7]:=k;
end;
for i := 1 to 10 do
write(a[i]:4);
end.