Дано натуральное число, верно ли, что количество его цифр есть чётное число

@azlagor · Регистрация: 12.11.2017

Никак не могу додуматься. Нужно через count while и div

@JuriiMW · 05.03.2018, 05:59

Pascal

begin
  var(n,c):=(ReadInteger,0);
  while n<>0 do (n,c):=(n div 10,c+1);
  WriteLn(not odd(c));
end.

@Cyborg Drone · 07.03.2018, 12:40

На всякий случай, без циклов:

Pascal

1
2
3

begin
  writeln(odd(trunc(log10(readlninteger('n = ')))))
end.

И без проверки корректности ввода.

@azlagor 3 / 2 / 1 Регистрация: 12.11.2017 Сообщений: 28
		1
	Дано натуральное число, верно ли, что количество его цифр есть чётное число 05.03.2018, 05:07. Показов 5582. Ответов 2 Метки нет (Все метки) Никак не могу додуматься. Нужно через count while и div 0

	07.03.2018, 12:40

Решение