11010000 10011000 11010000 10111101 11010001 10000100 11010000 10111110 11010001 10000000 11010000 10111100 11010000 10110000 11010001 10000110 11010000 10111000 11010001 10001111 00001101 00001010 11010000 10011010 11010000 10111000 11010001 10000001 11010000 10111011 11010000 10111110 11010001 10000000 11010000 10111110 11010000 10110100 00100000 11010001 10000001 11010000 10111110 11010000 10110010 11010001 10000000 11010000 10110101 11010000 10111100 11010000 10110101 11010000 10111101 11010000 10111101 11010000 10111110 11010000 10110011 11010000 10111110 00100000 11010000 10111100 11010000 10111000 11010001 10000000 11010000 10110000
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.
Пример работы:
Ввод:
КРАСНЫЕ
ЛАНДЫШИ
ЦВЕТУТ
Вывод:
КРАСНЫЕ ЛАНДЫШИ ЦВЕТУТ
КРАСНЫЕ ЦВЕТУТ ЛАНДЫШИ
ЛАНДЫШИ КРАСНЫЕ ЦВЕТУТ
ЛАНДЫШИ ЦВЕТУТ КРАСНЫЕ
ЦВЕТУТ КРАСНЫЕ ЛАНДЫШИ
ЦВЕТУТ ЛАНДЫШИ КРАСНЫЕ