Определить, имеются ли в записи числа N нечетные цифры

05.12.2011, 20:53. **Показов** 2370. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста
Дано натуральное число N. Используя операции деления нацело и взятия остатка от деления определить, имеются ли в записи числа N нечетные цифры. Если имеется, то вывести TRUE, если нет – вывести FALSE.

@КонецСвета · 05.12.2011, 21:27

Pascal

uses crt;
var n,k: integer;
    b: boolean;
begin
write('N=');
readln(n);
while n>=1 do
      begin
      if (n mod 10) mod 2=0 then inc(k);
      n:=n div 10;
      end;
b:=k>0;
write(b);
end.

Бугага56
		1
	Определить, имеются ли в записи числа N нечетные цифры 05.12.2011, 20:53. Показов 2370. Ответов 1 Метки нет (Все метки) Помогите пожалуйста Дано натуральное число N. Используя операции деления нацело и взятия остатка от деления определить, имеются ли в записи числа N нечетные цифры. Если имеется, то вывести TRUE, если нет – вывести FALSE.

	05.12.2011, 21:27

Опции темы

Определить, имеются ли в записи числа N нечетные цифры

Решение