Верно ли, что число начинается и заканчивается одной и той же цифрой?

@Алексейко112 · Регистрация: 11.03.2012

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

Дано натуральное число:
− найти сумму цифр этого числа;
− верно ли, что число начинается и заканчивается одной и той же цифрой.

@TheSN · 04.06.2012, 13:40

Pascal

var
  a, i, sum: integer;
  s: string;
 
begin
  readln(a);
  str(a, s);
  for i := 1 to length(s) do sum := sum + ord(s[i]) - ord('0');
  writeln('Последняя и первая цифра равны: ', s[1] = s[length(s)]);
  writeln('Сумма цифр = ', sum);
  readln
end.

@Алексейко112 0 / 0 / 0 Регистрация: 11.03.2012 Сообщений: 49
		1
	Верно ли, что число начинается и заканчивается одной и той же цифрой? 04.06.2012, 13:31. Показов 3569. Ответов 1 Метки нет (Все метки) Дано натуральное число: − найти сумму цифр этого числа; − верно ли, что число начинается и заканчивается одной и той же цифрой. 0

	04.06.2012, 13:40

Опции темы

Верно ли, что число начинается и заканчивается одной и той же цифрой?

Решение