(Данная задачка была сотворена для прибавления на ПК "Pascal ABC")Дано целое

(Данная задачка была создана для приложения на ПК "Pascal ABC")
Дано целое число N. Уменьшить число на 12, если число не четное.
ПОМОГИТЕ ПОЖАЛУЙСТА. ОЧЕНЬ Необходимо ДО ЗАВТРА))

Задать свой вопрос
1 ответ
Program DZ;
var n: longint;
begin
  read (n);
  if n mod 2 lt;gt; 0 then n:=n-12;
  write (n);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт