Напишите программу которая выводит первое слово переданной её символьной строки. Слово- это последовательность непробельных символов, ограниченная пробелами или концами строки. ПАСКАЛЬ

Адекватная версия:

PascalABC.NET

begin

 var expr := Readstring();

 expr.Split(' ')[0].Println;

end.

Версия "Нас так учили"

var  

expression: string;

s_index: byte;

begin

 s_index := 1;

 readln(expression);

 while expression[s_index] <> ' ' do begin

   write(expression[s_index]);

   s_index := s_index + 1;

 end;  

 

end.

Объяснение:

Т.к по условию слово - последовательность непробельных символов, ограниченная пробелами или концами строки, то данная программа полностью игнорирует пунктуацию и считает любой символ частью того слова, с которым он не разделён пробелом.

Код:

#include <iostream>

using namespace std;

int main()

{

   int n,i,max,j,count=0,sum=0;

   cout << "n = ";

   cin >> n;

   int array[n];

   for (i=0;i<n;i++)

   {

       cin >> j;

       if (j>1000000)

       {

           cout << "Элемент массива превосходит 1000000";

           break;

       }

       else

       {

           array[i] = j;

           sum += j;

       }

   }

   max = array[0];

   for (i=1;i<n;i++)

   {

       if (array[i]>max)

       {

           max = array[i];

       }

   }

   for (i=0;i<n;i++)

   {

       if (array[i] == max)

       {

           count++;

       }

   }

   if (count > 1)

   {

       sum -= count*max;

       cout << "Сумма элементов массива без максимальных: " << sum;

   }

   else

   {

       sum -= max;

       cout << "Сумма элементов массива без максимального: " << sum;

   }

}  

Вывод:

n = 5                                                                                                                          

1 2 5 3 5                                                                                                                      

Сумма элементов массива без максимальных: 6  

1 + 2 + 3 = 6

n = 5                                                                                                                          

1 2 3 4 5                                                                                                                      

Сумма элементов массива без максимального: 10      

1 + 2 + 3 + 4 = 10  

ответ: слово «SPAM» появилось в 1936 г. Оно расшифровывалось как SPiced hAM (острая ветчина) и было товарным знаком для мясных консервов компании Hormel Foods — острого колбасного фарша из свинины. Всемирную известность в применении к назойливой рекламе термин SPAM получил благодаря знаменитому скетчу с одноимённым названием из известного шоу «Летающий цирк Монти Пайтона» (1969) комик-группы Монти Пайтон, в котором слово «спам» в общей сложности упоминается более ста раз

Объяснение:ерез некоторое время слово «СПАМ» стало нарицательным, им стали называть все, что навязывалось вопреки желанию, в частности различные и прочую макулатуру рекламного характера, которой забивали почтовые ящики. А уже потом этим термином стали характеризовать ненужную рекламную корреспонденцию, рассылаемую по электронной почте.