Question

Напишите программу, которая подсчитает сумму первой и последней цифр любого положительного числа. Исходные данные вводятся с клавиатуры. На языке Паскаль

Answer 1

Ответ:

• var n: BigInteger;
• begin
• read(n);
• Print(n.ToString.First.ToDigit + n.ToString.Last.ToDigit);
• end.

Пример работы:

Answer 2

Конечно, вот пример программы на языке Паскаль, которая выполняет указанную задачу:

pascalCopy code
program SumOfFirstAndLastDigits;

var
  num, firstDigit, lastDigit, sum: Integer;

begin
  // Вводим положительное число
  Write('Введите положительное число: ');
  ReadLn(num);
  
  // Проверяем, что число положительное
  if num <= 0 then
  begin
    WriteLn('Введено некорректное число. Пожалуйста, введите положительное число.');
    Exit; // Выход из программы
  end;
  
  // Находим первую цифру числа
  firstDigit := num;
  while firstDigit >= 10 do
    firstDigit := firstDigit div 10;
  
  // Находим последнюю цифру числа
  lastDigit := num mod 10;
  
  // Вычисляем сумму первой и последней цифры
  sum := firstDigit + lastDigit;
  
  // Выводим результат
  WriteLn('Первая цифра: ', firstDigit);
  WriteLn('Последняя цифра: ', lastDigit);
  WriteLn('Сумма первой и последней цифры: ', sum);
end.

Скопируйте этот код в среду разработки Pascal и выполните программу. Она запросит вас ввести положительное число, а затем выведет первую и последнюю цифры числа, а также их сумму.