Question

Дано целое положительное число А<10 вывести на экран все четные и нечетные числа отдельной строкой до А

Answer 1

program raf105;

var  

 i,n: integer;

begin

 write('Введите число: ');

 readln(n);

 write('Чётные: ');

 for i:=1 to n do

   if i mod 2 = 0

     then write(i,' ');

 writeln;

 write('Нечётные: ');

 for i:=1 to n do

   if i mod 2 <> 0

     then write(i,' ');

end.

PascalABC 3.4.2

Answer 2

Для решения этой задачи можно использовать циклы, которые будут выводить четные и нечетные числа отдельными строками до заданного числа А. Вот пример кода на языке Python:

pythonCopy code
def print_even_and_odd_numbers(limit):
    print("Четные числа:")
    for i in range(2, limit, 2):
        print(i, end=' ')

    print("\nНечетные числа:")
    for i in range(1, limit, 2):
        print(i, end=' ')

try:
    A = int(input("Введите целое положительное число A (меньше 10): "))
    if A < 10:
        print_even_and_odd_numbers(A + 1)
    else:
        print("Число должно быть меньше 10.")
except ValueError:
    print("Ошибка ввода. Пожалуйста, введите целое число.")

Программа запрашивает у пользователя целое положительное число А (меньше 10) и затем выводит все четные числа отдельной строкой, а затем все нечетные числа отдельной строкой, до введенного числа А. Обратите внимание, что числа 0 и 1 в данном случае будут игнорироваться, так как они не являются четными и нечетными соответственно.