Решить в паскале 1) составить программу для того, чтобы компьютер, используя генератор случайных чисел, записал на экране случайное число, значение которого лежит в пределах от 5 до 6. 2) введено 3-значное число. вывести число в зеркальном отображении. 3)введенное 4-значное число изменить так, чтобы 1-3 и 2-4 цифры поменялись местами.

Program task1; var  a : integer; begin   randomize;   a: = 0;   while (a < > 5) and (a < > 6) do    a: = random(7);   writeln(a); end.program task2; var  digit, i : integer;   digitstr : string; begin  readln(digit);   str(digit,digitstr);   for i: = length(digitstr) downto 1 do    write(digitstr[i]); end.program task3; var  digit : integer;   newdigit, digitstr : string; begin  readln(digit);   str(digit,digitstr);   newdigit: = digitstr[3] + digitstr[4] + digitstr[1] + digitstr[2];   writeln(newdigit); end.

к чёрту на куличики

фразеологизм “у черта на куличках” значение

выражение “у черта на куличках”  – начнем с того, что никакого слова кулички в языке нет. от кулича  выйдут куличики, от кулика — кулички. на самом же деле не на кулички надо посылать, а на кулижки. вот тогда справедливость восторжествует, и мы сможем приступить к объяснению этого истинно оборота.кулиги и кулижки были известными и весьма употребительными словами на севере россии. когда хвойный лес «ослабевает», там появляются прогалины, поляны. на них мгновенно начинают расти трава, цветы и ягоды. эти лесные острова и назывались кулигами. еще с языческих времен на кулигах совершались жертвоприношения: жрецы закалывали оленей, овец, телок, жеребцов, все наедались досыта, напивались допьяна.когда же пришло на русь христианство и стало оно теснить язычество, пришел на кулигу крестьянин, поставил избу, стал сеять рожь, ячмень, появлялись целые деревенские артели. когда же жить станови лось теснее, уходили от стариков дети и племянники, да порой так далеко, что и вести достигать переставали, жили, как  у черта на куличках.

другая версия:

 

фразеологизм у черта на куличках  это: страшно далеко, где-то в дикой глуши. общий смысл слов понятен каждому, а вот что такое «кулички», не знает почти никто.

кулички  – испорченное финского корня слово, «кулиги», «кулижки», давно вошедшее в речь. так на севере назывались лесные полянки, лужки, болотца. здесь, в лесистой части страны, поселенцы далекого прошлого все время в лесу «кулижки» – площадки для распашки и покоса.

 

в старых грамотах постоянно встречается такая формула: «и вся та земля, покуда топор ходил и коса ходила». земледельцу часто приходилось на свою ниву отправляться в страшную глушь, на самые дальние «кулижки», хуже ближних разработанные, где, по тогдашним суеверным представлениям, в болотах и буреломах водились и лишние, и черти, и всякая лесная нечисть.

так и получили обычные слова свое второе, переносное значение: далеко, на краю света.

var i, n, a: integer; c1, c2, c3, c4: integer;

begin readln(n); for i : = 1 to n do begin readln(a); c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln('цифры попарно различны') else writeln('не все цифры попарно различны'); end; end.