Вопрос по информатике:
Ребята,помогите. Срочно нужна помощь. Проверить является ли число нечётным, при этом условие проверки x mod 2 = 0 не использовать! (программа на Паскале). Как тогда????
- 18.09.2017 18:58
- Информатика
- remove_red_eye 4850
- thumb_up 48
Ответы и объяснения 2
USES CRT;
VAR x:integer;
BEGIN
CLRSCR;
Writeln('‚Введите число ');
Readln(x);
if x/2 = Int(x/2) then Writeln('Четное')
else Writeln('Не четное');
READLN;
END.
- 19.09.2017 03:05
- thumb_up 46
Можно и проще...
Var X : Integer;
Begin
Readln(X);
While X>=2 do X:=X-2;
If X=0 then Writeln('Чётное') else Writeln('Нечётное');
end.
- 20.09.2017 10:00
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.