Нужно упрощение кода

@dushesofficial · Регистрация: 14.08.2019

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

begin
ReadInteger.To(ReadInteger).Where(n->begin var(t,m):=(n,0);repeat m*=10;m+=t mod 10;t:=t div 10;until t=0;Result:=m=n; end).Count.Println;
end.

вот тот самый код. он правильный, но мне надо его поменять, так как мы немного в другом стиле работаем. буду благодарен за помощь

@JuriiMW · 15.08.2019, 17:23

dushesofficial, зачем плодить бесполезные вопросы?
Я же вам сказал, что если вам нужен код в стиле Turbo Pascal, то и поднимать темы нужно в соответствующем разделе!

@dushesofficial · 15.08.2019, 17:56 **[ТС]**

ВЫ СДЕЛАЛИ СВОЁ ДЕЛО, МОЖЕТЕ САМИ УЖЕ "НЕ ПЛОДИТЬ" СООБЩЕНИЯ, Я НЕ ДЛЯ ВАС ТЕМУ СОЗДАЮ

@dushesofficial -6 / 0 / 0 Регистрация: 14.08.2019 Сообщений: 12
		1
	Нужно упрощение кода 15.08.2019, 17:08. Показов 458. Ответов 2 Метки нет (Все метки) begin ReadInteger.To(ReadInteger).Where(n->begin var(t,m):=(n,0);repeat m*=10;m+=t mod 10;t:=t div 10;until t=0;Result:=m=n; end).Count.Println; end. вот тот самый код. он правильный, но мне надо его поменять, так как мы немного в другом стиле работаем. буду благодарен за помощь 0

@JuriiMW 5065 / 2637 / 2348 Регистрация: 10.12.2014 Сообщений: 10,003
	15.08.2019, 17:23	2
	dushesofficial, зачем плодить бесполезные вопросы? Я же вам сказал, что если вам нужен код в стиле Turbo Pascal, то и поднимать темы нужно в соответствующем разделе! 0

@dushesofficial -6 / 0 / 0 Регистрация: 14.08.2019 Сообщений: 12
	15.08.2019, 17:56 [ТС]	3
	ВЫ СДЕЛАЛИ СВОЁ ДЕЛО, МОЖЕТЕ САМИ УЖЕ "НЕ ПЛОДИТЬ" СООБЩЕНИЯ, Я НЕ ДЛЯ ВАС ТЕМУ СОЗДАЮ 0

Опции темы