Написать программу, которая у двух чисел с разной четностью выводит ** экран нечетное...

Question

Написать программу, которая у двух чисел с разной четностью выводит на экран нечетное число.(PascalABC.NET)

Answer 1

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var a:=ReadInteger('Первое число');
  var b:=ReadInteger('Второе число');
  Write('Нечетное число: ');
  if a mod 2 <> 0 then Writeln(a) else Writeln(b)
end.

Тестовое решение
Первое число 31
Второе число 40
Нечетное число: 31

Comments

var

---

a,b:integer;

---

begin

---

и т.д

---

Это, быть может, Вам надо по-другому, но программа написана корректно и она работает. Можете запустить и убедиться. А как именно Вам надо - это следовало указывать в условии задания. Я же не виноват, что Вам в школе дают стиль программирования, который использовался 25 лет назад.

---

Не выносить var за пределы begin... end рекомендует сам разработчик PascalABC.NET на совем официальном сайте.

---

Вот выдержка: "Программировать в стиле старого Паскаля не рекомендуется. Программы в стиле старого Паскаля менее эффективны по скорости работы и прививают отживший стиль программирования 90-х годов."

---

"Переменные следует описывать как можно ближе к месту их первого использования. Временные переменные обязательно описывать внутри блока, чтобы не захламлять раздел описания. "

---

"Расширения PascalABC.NET , связанные с внутриблочными переменными и автоопределением типа. Минимально рекомендуемый уровень программирования на PascalABC.NET, отвечающий современным требованиям к коду"

---

Покажите это Вашему учителю.