"устройства внешней памяти" подскажите заранее

USB Накопитель (флешка), CD, DVD, Дисковод и.т.д

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 "Нет") - выводим возвращённый результат

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Матрица А ***');
  var a:=MatrRandom(4,7,-50,50); a.Println(4);
  Writeln('*** Матрица B ***');
  var b:=MatrRandom(4,7,-50,50); b.Println(4);
  Writeln(4*a.ColCount*'-');
  Writeln('*** Матрица А-B ***');
  for var i:=0 to 3 do begin
    for var j:=0 to 6 do Write(a[i,j]-b[i,j]:4);
    Writeln
    end;
end.

Пример
*** Матрица А ***
  11 -12 -37  22   3  -8  16
  -2  21  31   4  -1  13  20
  18 -42 -46 -17  19   8 -14
 -26 -32  -2  31 -26 -43 -31
*** Матрица B ***
  13 -14  12 -37   2 -12  34
  26  25 -47   2 -42   1 -43
  44  -6  -1  24  37  -9  -3
 -30   3 -29 -39 -11  -8 -14

*** Матрица А-B ***
  -2   2 -49  59   1   4 -18
 -28  -4  78   2  41  12  63
 -26 -36 -45 -41 -18  17 -11
   4 -35  27  70 -15 -35 -17