Визначити кількість слів у довільному рядку (паскаль або лазарус)​

р треугольника= сложить все стороны

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

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

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

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

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

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

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

var a: array [1..100] of integer;

i,n: integer;

s: string;

begin

  randomize;

  for i : =1 to 100 do

  begin

      a[i]: = random(1000)+1000;

      a[i]: =a[i] mod 100;

      a[i]: =a[i] div 10;

      if a[i] mod 2 = 0 then n=n+1;

  end;

  writeln(n);

end.

а) pas вот это правильный ответ!