Question

Напишите программу, которая считывает натуральное число n и выводит на экран случайное натуральное число, меньшее n и оканчивающееся на 1. Гарантируется, что будет ввeдено натуральное число 1

Answer 1

Программа:

program MrSolution;

var n: integer;

function MrSolutionRandom(topBorder: integer):integer;

var rand: integer;

begin

 randomize;

 rand:= random(0, topBorder-1);

 MrSolutionRandom:= rand-rand mod 10+1;

end;

begin

  write('Введите натуральное число, кроме 1 >> ');

  repeat

    readln(n);

  until n<>1;

  writeln(MrSolutionRandom(n));

end.