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

Pascalabc.net var   sc1,sc2: set of char;   s1,s2: string;   c: char;   i: integer; begin   write('введите первое слово: '); readln(s1);   write('введите второе слово: '); readln(s2);   sc1: =[]; sc2: =[];   for i: =1 to length(s1) do include(sc1,s1[i]);   for i: =1 to length(s2) do include(sc2,s2[i]);   foreach c in sc1+sc2-(sc1*sc2) do write(c,' ') end. тестовое решение: введите первое слово: процессор введите второе слово: информация п я н м ф а е с и

Мишутка 104,4С(16) руб. Медовик стоит 11132,12(4) руб

/*VS C++*/
#include <iostream>
using namespace std;
int main()
{
    setlocale(LC_ALL, "");
    float x, y, z, m;
    cout << "Введите 3 числа через пробел: ";
    cin >> x >> y >> z;
    float min = x - y;
    float max = y;
    if (y > max) max = y;
    if (z > max) max = z;
    if (y - z < min) min = y - z;
    if (x - z < min) min = x - z;
    m = max / min;
    printf("m = %.1f", m);
    cout << endl;
    system("pause");
    return 0;
}


//C
//
#include <stdio.h>
int main()
{
    float x, y, z, m;
    scanf("%f%f%f", &x,&y,&z);
    float min = x - y;
    float max = y;
    if (y > max) max = y;
    if (z > max) max = z;
    if (y - z < min) min = y - z;
    if (x - z < min) min = x - z;
    m = max / min;
    printf("m = %.1f", m);
    printf(" ");
    return 0;
}

Считая, что каждый символ кодируется одним байтом, определите, чему равен информационный объем следующего высказывания Жан-Жака Руссо:
Тысячи путей ведут к заблуждению, к истине – только один.
Ответ. 3) 456 бит.