Решение с использованием строк 1. составьте программу, которая: а) из слова «компилятор» составляет слова: «мотор», «комок», «пилот»; б) из слов «мандарин», «мода», «мак» получает слово «командор»; в) заменяет в тексте, заданном с клавиатуры, пробелы между словами подчеркиванием.

Var str, s, s1, s2, s3: string; i: integer; begin str: ='êîìïèëßòîð'; s: =str[3]+str[2]+copy(str, 8, 3); writeln(s); s: =copy(str, 1, 3)+str[2]+str[1]; writeln(s); s: =copy(str, 4, 3)+str[2]+str[length(str)-2]; writeln(s); s1: ='ìàíäàðèí'; s2: ='ìîäà'; s3: ='ìàê'; s: =copy(s3, 3, 1)+copy(s2, 2, 1)+copy(s1, 1, 4)+copy(s2, 2, 1)+copy(s1, length(s1)-2, 1); writeln(s); writeln('vvedite stroku: '); readln(str); for i: =1 to length(str) do if str[i]=' ' then str[i]: ='_'; writeln(str); end.

program xxx;

  var a, b, s : real;

              r, p, d : real;

begin

    write ('введите певрое число- ');

    readln (a);

    write ('введите второе число- ');

    readln (b);

    s: = a+ b;

    r : = a - b;

    p : = a* b;

    d : = a/b;

    writeln ('сумма =', s);

    writeln ('разность =', r);

    writeln ('произведение =', p);

    writeln ('частное = ', d);

    readln

end.