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) Интеграция, гибкость совместного использования ресурсов, возможность бесперебойного обновления информации, уменьшение стоимости владения оборудованием, гибкое использование вычислительной мощности компьютеров, управление безопасностью – все это преимущества компьютерных сетей.
2) К локальным сетям относят сети компьютеров, сосредоточенные на небольшой территории (обычно в радиусе не более 1-2 км).
Глобальные сети объединяют территориально рассредоточенные компьютеры, которые могут находиться в различных городах и странах.
