ЗАДАЧА Составить программу решения задачи: Z = m/(m-1)

ЗАДАЧА Составить программу определения четных (нечетных) чисел

Ответы:

А что здесь размышлять все элементарно:

program znanija_com,

var m :integer,

begin

writeln(Введите число:),

read(m),

writeln(z = , m / (m-1)),

if(m mod 2 = 0) then writeln(Введенное число четное)

  else writeln(Введенное число не четное),

readln(),

end.