Метод подсчета кол-ва цифр "2" в десятичной записи чисел от 0 до n

@hentaisense · Регистрация: 23.10.2019

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

задание

Метод подсчета кол-ва цифр "2" в десятичной записи чисел от 0 до n

@JuriiMW · 01.04.2020, 16:23

Pascal

1
2
3

begin
  0.to(ReadInteger).Select(n->n.ToString).JoinIntoString.Count(c->c='2').Print;
end.

@Sun Serega · 01.04.2020, 16:31

Ну тогда так хотя бы:

Pascal

begin
  Range(0, ReadInteger)
  .Select(n->n.ToString
  .Count(c->c='2'))
  .Sum.Print;
end.

И короче (Sum вместо JoinIntoString), и без лишних операций со строками.

Но должно быть решение и ещё проще.

Добавлено через 4 минуты
Вообще без строк:

Pascal

begin
  var res := 0;
  var n := ReadInteger;
  var mlt := 1;
  while n<>0 do
  begin
    res += (n+8) div 10 * mlt;
    n := n div 10;
    mlt *= 10;
  end;
  res.Println;
end.

@hentaisense 0 / 0 / 0 Регистрация: 23.10.2019 Сообщений: 6
		1
	Метод подсчета кол-ва цифр "2" в десятичной записи чисел от 0 до n 01.04.2020, 13:05. Показов 638. Ответов 2 Метки нет (Все метки) задание 0

	01.04.2020, 16:31