Дана последовательность целых чисел. Вывести сумму всех симметричных чисел

@SpanSpace · Регистрация: 25.12.2013

Не могу сделать, помогите.
Желательно расписать подробно, что и как.

Добавлено через 31 минуту
Помогите кто-нидь

@CodeR · 26.12.2013, 12:09

Pascal

Repeat
 write('Число: ');readln(n);
 m:=0;t:=n;
 While t>0 do
 Begin
   m:=m*10+t mod 10;
   t:=t div 10;
 End;
 if n=m then s:=s+n;
Until n=0;

@SpanSpace 0 / 0 / 0 Регистрация: 25.12.2013 Сообщений: 3
		1
	Дана последовательность целых чисел. Вывести сумму всех симметричных чисел 26.12.2013, 00:28. Показов 5818. Ответов 1 Метки нет (Все метки) Не могу сделать, помогите. Желательно расписать подробно, что и как. Добавлено через 31 минуту Помогите кто-нидь 0

	26.12.2013, 12:09

Решение