Question

Информатика. Написать код на Паскаль. 50баллов 1)Дано натуральное число n (n<=100). Найти последнюю цифру числа n.2)Необходимо вычислить:- модуль x;- целую часть вещественного числа x;- получить случайное число в диапазоне от 0 до р, р – целое.​

Answer 1

Ответ:

program c1;

var n:integer;

begin

readln(n);

n:=n mod 10;

writeln(n);

end.

Answer 2

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

pascalCopy code
program NumericalOperations;

var
  n, x, r: integer;
  realNumber: real;

begin
  // Задача 1: Найти последнюю цифру числа n
  write('Введите натуральное число n (n <= 100): ');
  readln(n);
  if (n < 1) or (n > 100) then
    writeln('Число n не входит в указанный диапазон.')
  else
    writeln('Последняя цифра числа n: ', n mod 10);

  // Задача 2: Вычислить модуль x
  write('Введите число x: ');
  readln(x);
  writeln('Модуль числа x: ', abs(x));

  // Задача 3: Вычислить целую часть вещественного числа x
  write('Введите вещественное число x: ');
  readln(realNumber);
  writeln('Целая часть числа x: ', trunc(realNumber));

  // Задача 4: Получить случайное число в диапазоне от 0 до r
  write('Введите целое число r: ');
  readln(r);
  randomize; // Инициализация генератора случайных чисел
  writeln('Случайное число в диапазоне [0, r]: ', random(r + 1));
end.

Этот код выполняет четыре задачи:

1. Находит последнюю цифру числа n, предоставленного пользователем.
2. Вычисляет модуль числа x.
3. Определяет целую часть вещественного числа x.
4. Генерирует случайное число в диапазоне от 0 до заданного r.

Вы можете скомпилировать и запустить этот код в среде разработки Pascal, такой как Free Pascal, чтобы увидеть результаты выполнения этих операций.