Помогите пожалуйста. (Программа паскаль)

Question

Помогите пожалуйста.
(Программа паскаль)

---

---

---

Comments

мне одному интересно, как при делении 4 на 0, получился 0

---

а, там произведение, все, молчу

Answer 1

2)
var
a,b:integer;
begin
Readln(a,b);
if (a+b)mod 2 = 0 then
  Writeln(a*b)
else
  Writeln(b/a);
end.
--------------------------
Для пользователя eugene7870  приложил скрин работы программы при вводе "0 5"
--------------------------

6)
var
a:integer;
begin
Readln(a);
if (a mod 10 + a div 10)mod 2 = 0 then
  a:= a + 2
else
  a:= a - 2;
Writeln(a);
end.

---

Comments

а если во второй задаче я введу 0 и 5?

---

Он поделит 5 на 0, а какие проблемы?

---

и не вылетит?

---

обновил ответ

---

а, ну ок

Answer 2

var a,b,n:integer;

begin

  readln(a,b);

  if (a+b) mod 2 = 0 then writeln (a*b)

    else

  writeln(b/a);

end.