Question

Решите пж дою 40 баллов Задание 2. Дано натуральное число N. Составьте на паскале программу для нахождения суммы первой и последней цифр этого числа. Задание 3. Дано натуральное число N и цифра К. Составьте на Паскале программу, которая определяет. Есть ли в записи числа N цифра К.

Answer 1

2 задание

s:=n mod 10;

while n>10 do

n:=n div 10;

s:=s+n;

Answer 2

Задание 2. Программа для нахождения суммы первой и последней цифр числа N на Pascal:

pascalCopy code
program SumOfFirstAndLastDigit;
var
  N, firstDigit, lastDigit, sum: Integer;
begin
  writeln('Введите натуральное число N: ');
  readln(N);

  // Находим первую цифру числа
  firstDigit := N;
  while firstDigit >= 10 do
    firstDigit := firstDigit div 10;

  // Находим последнюю цифру числа
  lastDigit := N mod 10;

  // Вычисляем сумму первой и последней цифр
  sum := firstDigit + lastDigit;

  writeln('Сумма первой и последней цифры числа ', N, ' равна ', sum);
end.

Задание 3. Программа для определения наличия цифры K в числе N на Pascal:

pascalCopy code
program DigitInNumber;
var
  N, K, tempNumber: Integer;
  digitFound: Boolean;
begin
  writeln('Введите натуральное число N: ');
  readln(N);
  writeln('Введите цифру K: ');
  readln(K);

  digitFound := False; // Предполагаем, что цифра K не найдена
  tempNumber := N;

  while tempNumber > 0 do
  begin
    if tempNumber mod 10 = K then
    begin
      digitFound := True;
      break; // Если цифра K найдена, завершаем цикл
    end;
    tempNumber := tempNumber div 10; // Переходим к следующей цифре числа
  end;

  if digitFound then
    writeln('Цифра ', K, ' найдена в числе ', N)
  else
    writeln('Цифра ', K, ' не найдена в числе ', N);
end.

Эти программы позволят вам решить задачи 2 и 3. Не забудьте скомпилировать и запустить их в вашей среде разработки Pascal.