ИНФОРМАТИКА СРОЧНО ПОМОГИТЕ ?

 var 

  N, A, B, i: integer; 

begin 

  // Задача 1: Определить четность числа N 

  writeln('Введите целое положительное число N:'); 

  readln(N); 

  if N mod 2 = 0 then 

    writeln('Число N четное') 

  else 

    writeln('Число N нечетное'); 

 

  // Задача 2: Вывести таблицу умножения чисел от 1 до 10 на 9 

  writeln('Таблица умножения чисел от 1 до 10 на 9:'); 

  i := 1; 

  repeat 

    writeln(i, ' * 9 = ', i * 9); 

    i := i + 1; 

  until i > 10; 

 

  // Задача 3: Найти НОД двух чисел 

  writeln('Введите два числа для нахождения их НОД:'); 

  readln(A, B); 

  while A  B do 

    if A > B then 

      A := A - B 

    else 

      B := B - A; 

  writeln('НОД = ', A); 

end. 

 

 # 1. Ввести целое положительное число N и определить четное ли оно. 

N = int(input("Введите целое положительное число: ")) 

print("Число четное" if N % 2 == 0 else "Число нечетное") 

 

# 2. Вывести таблицу умножения чисел от 1 до 10 на 9. 

for i in range(1, 11): 

    print(i * 9) 

 

# 3. Найти наибольший общий делитель (НОД) двух чисел. 

a = int(input("Введите первое число: ")) 

b = int(input("Введите второе число: ")) 

 

while b: 

    a, b = b, a % b 

 

print("НОД равен", a)