ТутРешу.Ру

Помогите с информатикой!

Задание:

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

Решение:

А что здесь размышлять все элементарно: program znanija_com; var m: integer; beginwriteln ('Введите число: '); read (m); writeln ('z=', m / (m-1); if (m mod 2=0) then writeln ('Введенное число четное') else writeln ('Введенное число не четное'); readln (); end.




Знаете другой ответ?

Отправить свой ответ