Помогите с информатикой! Нужно cоставить программу на языке программирования (Паскаль) с ветвлением

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



1

Ответы и объяснения

2013-11-27T16:00:34+04:00
А что здесь размышлять все элементарно:
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.