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.