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

XxXBulykXxX XxXBulykXxX    3   22.07.2019 08:00    5

Ответы
Kuznecovaalexa2005 Kuznecovaalexa2005  03.10.2020 10:24
// 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
ПОКАЗАТЬ ОТВЕТЫ
Коши Коши  03.10.2020 10:24
//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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика