Проверка истинности высказываний - Turbo Pascal
Формулировка задачи:
Дано целое число а. Проверить истинность высказывания " Число а является положительным"
Дано целое число а. Проверить истинность высказывания " Число а является нечетным"
Дано целое число а. Проверить истинность высказывания " Число а является четным"
Даны числа а,в,с. Проверить истинность всказывания " Число в находится между числами а и с"
Решение задачи: «Проверка истинности высказываний»
textual
Листинг программы
var a, b, c : integer; begin write('введите целое число "a": '); readln(a); writeln('Число а является положительным: ', a > 0); writeln('Число а является нечетным: ', odd(a)); {или , a mod 2 <> 0} writeln('Число a является четным: ', a mod 2 = 0); write('введите целое числа "b", "c": '); readln(b, c); writeln('Число b находится между числами а и с: ', (b > a) and (b < c)); readln end.
Объяснение кода листинга программы
- Создается переменная
a
типаinteger
и присваивается значение, введенное пользователем. - Выводится сообщение с вопросом о том, является ли число
a
положительным. - Выводится сообщение с вопросом о том, является ли число
a
нечетным. - Выводится сообщение с вопросом о том, является ли число
a
четным. - Создаются переменные
b
иc
типаinteger
и присваиваются значение, введенное пользователем. - Выводится сообщение с вопросом о том, находится ли число
b
между числамиa
иc
. - Программа завершается, ожидая ввода пользователя.