Определить количество слов в строке. слова отделяются одним или несколькими пробелами.

Var   a: string; begin   readln(a);   writeln(a.(' '.  system.stringsplitoptions.removeemptyentries).length); end.

//pascal abc.net v3.1 сборка 1219 const   n=5; var   ar: array[1..n] of real;   i,maxi,mini: integer;   s,min,max: real; begin   randomize;   min: =2147483647;   max: =-2147483648;   writeln('first array: ');   for i: =1 to n do     begin     ar[i]: =random(30);     write(ar[i]: 6);     if ar[i]> max then       begin       max: =ar[i];       maxi: =i;       end;     if ar[i]< min then       begin       min: =ar[i];       mini: =i;       end;       s: =s+ar[i];     end;   s: =s/n;   ar[maxi]: =ar[maxi]-maxi;   ar[mini]: =ar[mini]+s;   writeln;   writeln('final array: ');   for i: =1 to n do   write(ar[i]: 6); end.

Вроссии пользователи чаще всего называют символ @ собакой, из-за чего адреса электронной почты, образованные от личных имен и фамилий, приобретают иной раз слегка обидное звучание. справедливости ради надо отметить, что в россии этот знак называют также собачкой, лягушкой, плюшкой, ухом, бараном и даже крякозяброй. пользователям интернета в других странах нравятся самые разные названия для знака @. в японии – «значок а» , в болгарии – «а обезьянье» , в голландии – «обезьяний хвост» , в финляндии – «кошкин хвост» , во франции – «улиточка» , в венгрии – «гусеничка» , «червячок» , «поросячий хвостик» , в израиле – «штрудель» , в китае – «мышонок» , в норвегии – «канельболле» (спирально закрученная булочка с корицей, то есть плюшка) . в германии знак дословно называют «обезьяна с цепким хвостом» , но слово klammeraffe имеет также второе, переносное, значение: так называют пассажира на мотоцикле, сгорбившегося на втором сиденье за спиной водителя. в швеции и дании символ @ сравнивают с хоботом слона, а в испании – со спиралеобразной конфетой, популярной на острове майорка. даже на международном языке эсперанто символ электронной почты получил свое название: «улитка».