Var chislo: integer; begin writeln('Введите число:'); readln(chislo); if chislo mod 2 = 0 then write('Число четное') else write('Число нечетное'); end.
А вообще в Паскале предусмотрена функция odd(), которая возвращает истину, если число нечетное
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
