Задание:
Помогите, пожалуйстаа! В программе Geany с помощью PascalЗадача 1. Определить четность/нечетность числа, введенного пользователем (использовать операцию mod, которая находит остаток от деления). Задача 2. Определить, попадает ли введенное число x в интервал [a, b], где числа a и b тоже задаются пользователем.
Решение:
Var a,b,c: longint; Begin read (a,b,c); if c mod 2=1 then writeln ('Нечетное') else writeln ('Четное'); if (c>=a) and (c <= b) then writeln ('YES') else writeln ('NO'); End.
Знаете другой ответ?