Значение левого поля данной страницы равно:

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.

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

Ввод:

КРАСНЫЕ

ЛАНДЫШИ

ЦВЕТУТ

Вывод:

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

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

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

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

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

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

#include <iostream>

using namespace std;

int main()
{
    int n;
    int sum=0, op=1;
    cout << "Введите n >> ";
    cin >> n;
    for (int i = 1; i < n; i++)
        if (i % 2 == 0)
            sum += i;
        else
            op *= i;
    cout << "Сумма четных чисел на интервале от 1 до " << n << ": " << sum << endl;
    cout << "Произведение нечетных чисел на интевале от 1 до " << n << ": " << op << endl;
    system("pause");
}