Дано целое число N увеличить число в 3 раза если число четное . Входные данные 4....

Question

Дано целое число N увеличить число в 3 раза если число четное . Входные данные 4. Выводимые данные 12. Паскаль.

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

var
  n: integer;

begin
  read(n);
  if n mod 2 = 0 then n := n * 3;
  writeln(n);
end.

Пример ввода:
4
Пример вывода:
12

Answer 2

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  var n:=ReadInteger;
  if not Odd(n) then n:=n*3;
  Writeln(n)
end.

Тестовое решение:
4
12

Comments

спасибо большое

---

Пожалуйста

---

не правильно ты в паскаль это вводил???

---

Посмотрите на версию компилятора.

---

Это работает в версии, начиная от 3.0