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

@Doctor_ · Регистрация: 03.02.2011

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

Дано натуральное число N. Найти
1)Сумму первой и последней цифр числа
2) Верно ли утверждение, что сумма цифр числа превысит В (вводим с клавиатуры)

Например:
126
1+6=7
потом вводим, например, 6 и он появляется сообщение что сумма больше

@Ev[G]eN · 18.03.2012, 20:43

Pascal

var
  Chislo, b: Integer;
  FirstNum, LastNum: Byte;
begin
  write('Число: ');
  readln(Chislo);
  LastNum:=Chislo mod 10;
  while Chislo > 10 do
  begin
    Chislo:=Chislo div 10;
    FirstNum:=Chislo;
  end;
  write('Число В: ');
  readln(b);
  if (FirstNum + LastNum) > b then
    writeln('Cумма больше!')
  else
    writeln('Cумма меньше!');
end.

@Doctor_ 238 / 237 / 142 Регистрация: 03.02.2011 Сообщений: 1,437
		1
	Сумма первой и последней цифры числа 18.03.2012, 20:28. Показов 2472. Ответов 1 Метки нет (Все метки) Дано натуральное число N. Найти 1)Сумму первой и последней цифр числа 2) Верно ли утверждение, что сумма цифр числа превысит В (вводим с клавиатуры) Например: 126 1+6=7 потом вводим, например, 6 и он появляется сообщение что сумма больше 0

	18.03.2012, 20:43

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

Решение