Проверка истинности высказываний - 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.

Объяснение кода листинга программы

  1. Создается переменная a типа integer и присваивается значение, введенное пользователем.
  2. Выводится сообщение с вопросом о том, является ли число a положительным.
  3. Выводится сообщение с вопросом о том, является ли число a нечетным.
  4. Выводится сообщение с вопросом о том, является ли число a четным.
  5. Создаются переменные b и c типа integer и присваиваются значение, введенное пользователем.
  6. Выводится сообщение с вопросом о том, находится ли число b между числами a и c.
  7. Программа завершается, ожидая ввода пользователя.

Оцени полезность:

12   голосов , оценка 4.083 из 5
Похожие ответы