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 "Нет") - выводим возвращённый результат
var
E: real;
n: integer;
begin
Writeln('Расчёт параметров окружности по одному известному');
Writeln(' 1) радиус окружности (R)');
Writeln(' 2) диаметр окружности (D)');
Writeln(' 3) длина окружности (L)');
Writeln(' 4) площадь круга (S)');
Write('Введите номер известного параметра= ');
Read(n);
Write('Введите значение данного параметра= ');
Read(E);
case n of
1: // известен R
begin
Writeln('D= ', 2 * E);
Writeln('L= ', 2 * Pi * E);
Writeln('S= ', Pi * Sqr(E));
end;
2: // известен D
begin
Writeln('R= ', E / 2);
Writeln('L= ', Pi * E);
Writeln('S= ', Pi * Sqr(E) / 4);
end;
3: // известна L
begin
Writeln('R= ', E / 2 / Pi);
Writeln('D= ', E / Pi);
Writeln('S= ', Sqr(E) / 4 / Pi);
end;
4: // известна S
begin
Writeln('R= ', Sqrt(E / Pi));
Writeln('D= ', 2 * Sqrt(E / Pi));
Writeln('L= ', Sqrt(4 * Pi * E));
end;
end;
end.
2 теряюсь в догадках... неужели имеется ввиду шина SPI/I2C слабо веритеся если чесно, вообще грубо говоря по факту у каждого перифирийного уст-ва есть своя плата, схема, чип, неважно как это назвать, вобщем мягко говоря своя голова на плечах которая делает то что попросит системный блок тем или иным по факту что нужно нам), так что абсурдный вопрос... имхо...