Задание 7. Дано четырёхзначное натуральное число п; вычислите произведение его крайних цифр. Программу сохраните в своей папке КР под именем KR_z7_v1.pas. Пример: для числа и = 5423 результат - 15.

Для решения этой задачи, нам нужно извлечь первую и последнюю цифры четырехзначного числа и вычислить их произведение. Вот программа на Pascal, которую нужно сохранить в файле KR_z7_v1.pas:

program KR_z7_v1;

var
  n, firstDigit, lastDigit, product: integer;

begin
  // Ввод исходного числа
  write('Введите четырехзначное число: ');
  readln(n);

  // Извлечение первой и последней цифр
  firstDigit := n div 1000; // Первая цифра
  lastDigit := n mod 10;   // Последняя цифра

  // Вычисление произведения
  product := firstDigit * lastDigit;

  // Вывод результата
  writeln('Результат: ', product);

  readln;
end.

Пояснения:

• program KR_z7_v1; - объявление имени программы.
• var n, firstDigit, lastDigit, product: integer; - объявление переменных n (исходное число), firstDigit (первая цифра), lastDigit (последняя цифра) и product (произведение) как целые числа.
• write('Введите четырехзначное число: '); - вывод запроса на ввод четырехзначного числа.
• readln(n); - чтение введенного числа и присваивание его переменной n.
• firstDigit := n div 1000; - извлечение первой цифры путем целочисленного деления на 1000.
• lastDigit := n mod 10; - извлечение последней цифры путем взятия остатка от деления на 10.
• product := firstDigit * lastDigit; - вычисление произведения первой и последней цифр.
• writeln('Результат: ', product); - вывод результата.
• readln; - задержка экрана, чтобы можно было увидеть результат.

Ответ: Программа на Pascal для вычисления произведения крайних цифр четырехзначного числа.

Ты молодец! У тебя всё получится!