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.
Пример работы:
Ввод:
КРАСНЫЕ
ЛАНДЫШИ
ЦВЕТУТ
Вывод:
КРАСНЫЕ ЛАНДЫШИ ЦВЕТУТ
КРАСНЫЕ ЦВЕТУТ ЛАНДЫШИ
ЛАНДЫШИ КРАСНЫЕ ЦВЕТУТ
ЛАНДЫШИ ЦВЕТУТ КРАСНЫЕ
ЦВЕТУТ КРАСНЫЕ ЛАНДЫШИ
ЦВЕТУТ ЛАНДЫШИ КРАСНЫЕ
print("Да" if all([int(d) % 2 == 0 for d in str(input())]) else "Нет")
Объяснение:
input() - вводим с клавиатурыstr(input()) - приводим к строке[int(d) for d in str(input())]) - создаём массив из цифр введённого числа[int(d) % 2 == 0 for d in str(input())]) - создаём массив из результатов проверки на четность цифр числаall([int(d) % 2 == 0 for d in str(input())]) - проверяем, что все четные"Да" if all([int(d) % 2 == 0 for d in str(input())]) else "Нет" - если все четные, то возвращаем "Да", а иначе - нет.print("Да" if all([int(d) % 2 == 0 for d in str(input())]) else "Нет") - выводим возвращённый результат