Будь ласка іть треба на завтра

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.

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

Ввод:

КРАСНЫЕ

ЛАНДЫШИ

ЦВЕТУТ

Вывод:

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

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

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

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

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

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

1)uses crt; var  x,a,b,c,i: integer;     begin cls;   write('введите число: '); readln(x);     a: = x div 100;     b: = (x - a*100) div 10;     c: = (x - a*100 - b*10);     if (a=b) or (a=c) or (b=c) then    writeln('есть одинаковые цифры')    else    writeln('одинаковых цифр нет'); end.2)uses crt; var  x: real;     begin cls;   write('сумма покупки: '); readln(x);     if x> 1000 then x: =x-(x*0.1);     writeln('стоимость с учётом возможной скидки ',x); end.