Составить блок-схему и программу вычисления следующего выражения:

Pascal ABC

Код:

var

  a: array [1..3] of string;

  i, j, k: integer;

begin

    readln(a[1],a[2],a[3]);

    for i := 1 to 3 do

        for j := 1 to 3 do

            for k := 1 to 3 do

                if (i <> j) and (i <> k) and (j <> k) then

                   writeln(a[i], ' ', a[j], ' ', a[k]);

end.

Пример работы:

Ввод:

КРАСНЫЕ

ЛАНДЫШИ

ЦВЕТУТ

Вывод:

КРАСНЫЕ ЛАНДЫШИ ЦВЕТУТ

КРАСНЫЕ ЦВЕТУТ ЛАНДЫШИ

ЛАНДЫШИ КРАСНЫЕ ЦВЕТУТ

ЛАНДЫШИ ЦВЕТУТ КРАСНЫЕ

ЦВЕТУТ КРАСНЫЕ ЛАНДЫШИ

ЦВЕТУТ ЛАНДЫШИ КРАСНЫЕ

щелкните на рабочем столе правой кнопкой мыши. Появится всплывающее меню. Выберите пункт Создать. Появится новое меню. Выберите пункт Ярлык. Появится диалоговое окно создания ярлыка,щелкните на кнопке ОБЗОР. В появившемся окошке разыщите программу Калькулятор. Дважды щелкните на значке Калькулятор, расположенном слева от имени программы. Щелкните на кнопке ДАЛЕЕ. Наберите слово Калькулятор в поле «имя». Щелкните на кнопке ГОТОВО.
в окне программы Проводник установите указатель на нужном файле и перетащите его на рабочий стол, нажав правую кнопку мыши. В появившемся меню выберите пункт Создать ярлыки.