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.
Пример работы:
Ввод:
КРАСНЫЕ
ЛАНДЫШИ
ЦВЕТУТ
Вывод:
КРАСНЫЕ ЛАНДЫШИ ЦВЕТУТ
КРАСНЫЕ ЦВЕТУТ ЛАНДЫШИ
ЛАНДЫШИ КРАСНЫЕ ЦВЕТУТ
ЛАНДЫШИ ЦВЕТУТ КРАСНЫЕ
ЦВЕТУТ КРАСНЫЕ ЛАНДЫШИ
ЦВЕТУТ ЛАНДЫШИ КРАСНЫЕ
В последнее очень популярны устройства, которые идут совместно с видеопроцессором. Не смотря на то, что на видео это отражается не в самую лучшую сторону, идет еще дополнительная нагрузка на данный элемент. Поэтому если вы играете в современные игры, пользуетесь серьезными программами, то не стоит выбирать данную «конструкцию». А если вы ничем таким не занимаетесь, то этот бюджетный вариант отлично вам подойдет.
По нижеприведенным видимым следствиям можно определить, что поломка заключается именно в данном элементе:
Компьютер никак не реагирует на кнопку включения (индикаторы загорелись, но больше ничего не происходит, или включается далеко не с первого раза);Прибор вдруг сам начал перезагружаться (но это работает только при условии, что компьютер проверен на вирусы);Нет никакого изображения;Появление коротких сигналов при включении (устройство не может найти ОЗУ);Появления «синего экрана смерти» (не самый явный признак, но как вариант).
попробуй вести код roomVertical, rooms16, rooms 14