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

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

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

Вот пример программы на Pascal, которая решает эти задачи:

pascalCopy code
program Tasks;
uses crt, sysutils;

var
  n, x, r: Integer;
  realNumber: Real;

begin
  // Ввод натурального числа n
  Write('Введите натуральное число n (n <= 100): ');
  Readln(n);

  // 1. Найти последнюю цифру числа n
  Writeln('Последняя цифра числа n: ', n mod 10);

  // Ввод вещественного числа x
  Write('Введите вещественное число x: ');
  Readln(x);

  // 2. Вычислить модуль числа x
  Writeln('Модуль числа x: ', Abs(x));

  // 3. Найти целую часть вещественного числа x
  Writeln('Целая часть числа x: ', Trunc(x));

  // Ввод целого числа r
  Write('Введите целое число r: ');
  Readln(r);

  // 4. Получить случайное целое число в диапазоне от 0 до r
  Randomize; // Инициализация генератора случайных чисел
  Writeln('Случайное число от 0 до r: ', Random(r + 1));
  
  Readln;
end.

Вы можете скопировать этот код в среду Pascal (например, Lazarus) и выполнить его, чтобы получить ответы на задачи 1-4.