Определите сумму первой и последней цифры числа

@green2703 · Регистрация: 08.01.2016

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

Задано натуральное многозначное число. Определите сумму его первой и последней цифры, первой и предпоследней цифры.

@Peoples · 15.05.2016, 12:39

Pascal

program pr;
var
  a, b, n, c: longint;
begin
writeln('Введите число');
  readln(n);
  c := (n mod 100) div 10; // предпоследняя
  a := n mod 10; 
  n := n div 10;
  while n > 0 do 
  begin
    b := n mod 10;
    n := n div 10;
  end;
  
  writeln('Предпоследняя цифра: ', c);
  writeln('Первая цифра: ', b);
  writeln('Последняя цифра: ', a);
  writeln('Сумма первой и последней цифры: ', b+a);
  writeln('Сумма первой и предпоследней цифры: ', b + c);
end.

@green2703 · 15.05.2016, 12:48 **[ТС]**

Братан,спасибо тебе огромное

@green2703 2 / 2 / 0 Регистрация: 08.01.2016 Сообщений: 167
		1
	Определите сумму первой и последней цифры числа 15.05.2016, 12:24. Показов 5056. Ответов 2 Метки нет (Все метки) Задано натуральное многозначное число. Определите сумму его первой и последней цифры, первой и предпоследней цифры. 0

@green2703 2 / 2 / 0 Регистрация: 08.01.2016 Сообщений: 167
	15.05.2016, 12:48 [ТС]	3
	Братан,спасибо тебе огромное 0

Опции темы

Определите сумму первой и последней цифры числа

Решение