Помогите пожалуйста! Отдаю последние баллы:( ПАСКАЛЬ 1) Дано двузначное число а. Если...

Question

Помогите пожалуйста! Отдаю последние баллы:( ПАСКАЛЬ 1) Дано двузначное число а. Если число нечетное и не кратное 3, то найти произведение предпоследней и последней цифр числа, если число кратное 5, то вывести последнюю цифру числа, в остальных случаях вывести число без изменения. 2) Дано число а. Если число двузначное или кратное 4, то вывести число, уменьшенное в 2 раза; если число четное, но не кратное 4, то вывести последнюю цифру числа.

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger('Введи двухзначное натуральное число:');

 if n.IsOdd and (n mod 3 <> 0) then

   Print((n div 10) * (n mod 10))

 else if n mod 5 = 0 then

   Print(n mod 10)

 else

   Print(n);

end.

// задание 2

begin

 var n := ReadInteger('Введи натуральное число:');

 if (n in 10..99) or (n mod 4 = 0) then

   Print(n / 2)

 else if n.IsEven and (n mod 4 <> 0) then

   Print(n mod 10)

end.

Comments

Спасибо, о мой герой)