<h2>Задание 1</h2>
- program task31143737;
- var x: integer;
- begin
- x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
- if x mod 2 = 0 then
- Writeln('ЧИСЛО ', x, ' ЧЁТНОЕ')
- else
- Writeln('ЧИСЛО ', x, ' НЕЧЁТНОЕ');
- end.
<h2>Задание 2</h2>
Здесь стоит ввести ограничение на ввод, т.к если пользователь введёт x (x >= 100), то программа укажет, что это тоже двузначное число.
- program task31143737;
- var x: integer;
- begin
- x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
- if ((x > 9) or (x < -9)) then
- Writeln('ЧИСЛО ', x, ' ДВУЗНАЧНОЕ')
- else
- Writeln('ЧИСЛО ', x, ' ОДНОЗНАЧНОЕ');
- end.
<span>БРАТ-БРАК СЛОГ-СЛОН
ОЧКО-ОЧКИ СТОЛ-СТОГ </span><span>РОСТ-РОСА
ПОЛК-ПОЛЕ БАРД-БАРС
ОБЕД-ОБЕТ ЛОСК-ЛОСЬ</span><span>ЭТАП-ЭТАЖ ОБОД-ОБОИ СКАТ-СКАЗ КРАБ-КРАН ПЕНС-ПЕНЬ
</span><span>ТРОС-ТРОН ТЕМП-ТЕМА
МАРТ-МАРШ МОРС-МОРЕ
ВРАЧ-ВРАГ</span><span>СОЛЬ-СОЛО
КРОТ-КРОВ ЛАВА-ЛАВР ЛОЖА-ЛОЖЕ
ГРОТ-ГРОМ</span><span>ГОРА-ГОРЕ КЛИЧ-КЛИН
ПЕРО-ПЕРИ</span>
# coding: utf-8
'''
Последовательность состоит
из натуральных чисел и завершается
числом 0. Определите, сколько
элементов этой последовательности
больше предыдущего элемента.
Python 3.X.
'''
prev = int(input()) # ввод первого элемента
count = 0 # изначально 0 элементов
while True:
n = int(input()) # ввод числа
if n == 0:
break # выход, если 0
if n > prev:
count += 1
prev = n # смещение числа
print(count, "эл.")
Ам, ну там сверху есть "выравнивалки"
Попробуй поэкспериментировать с полосками ("выравнивалками")