Слова в тексте разделены пробелами. какие символы есть в каждом слове? паскаль.

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var s:=ReadlnString('Текст->').ToWords;
  var c:=s[0].Intersect(s[1]);
  for var i:=2 to s.Length-1 do c:=c.Intersect(s[i]);
  Write('Символы, встречающиеся в каждом слове: ');
  c.Println(',')
end.

Пример
Текст-> сегодня двенадцатое ноября
Символы, встречающиеся в каждом слове: о,н

Program BraTish77;
uses crt;
var
  p,temp: integer;
  yes:char;
begin
  yes:='Y';
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  p:=1;
  temp:=1;
  writeln('Вводите числа (для окончания ввода введите 999) ');
  while (yes = 'Y') or (yes = 'y') do
    begin
      p:=1;
      temp:=1;
      repeat
        write('Число:'); readln(temp);
          if temp <0 then p:=p*temp;
      until temp=999;
      writeln('Произведение отрицательных чисел равно ',p);   
      write('Повторить? (Y/N) '); readln(yes);
    end;
  writeln('Выход из программы');   
end.

 

на языке C++:

 

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

 

 

using namespace std;

 

int main () {

int result = 1;

int c;

string answer = "";

 

while (1) {

cout << "Введите число";

cin >> c; 

if (c == 999)

 if (result == 1)

{cout << "Не введены отрицательные числа"<< endl; return 0;}

else {cout << "результат: " << result << endl; return 0;}

else if (c<0)result *= c;

cout << "продолжить? <YES> | <NO> ";

сin.getline(answer, sizeof(string));

 

 if (strcmp(answer, "YES")==0) continue;

else return 1;

}

}