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 "Нет") - выводим возвращённый результат
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.
Пример работы:
Ввод:
КРАСНЫЕ
ЛАНДЫШИ
ЦВЕТУТ
Вывод:
КРАСНЫЕ ЛАНДЫШИ ЦВЕТУТ
КРАСНЫЕ ЦВЕТУТ ЛАНДЫШИ
ЛАНДЫШИ КРАСНЫЕ ЦВЕТУТ
ЛАНДЫШИ ЦВЕТУТ КРАСНЫЕ
ЦВЕТУТ КРАСНЫЕ ЛАНДЫШИ
ЦВЕТУТ ЛАНДЫШИ КРАСНЫЕ
uses crt;
var i,z:integer;
begin
clrscr;
i:=0;
while i<100 do
begin
if i mod 11=0 then z:=z+i;
i:=i+1;
end;
writeln('Summa= ',z);
readln();
end.