Дано натуральное число n. вычислите произведение нечетных натуральных чисел от 1 до n. как должна правильно выглядеть программа? ?

Var a,n,i:integer;
Begin
Writeln('введи n');
Readln(n);
a:=1;
For i:=1 to n do begin
A:=a*i;
Inc(i);
End;

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

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.