Напишите программу, которая считывает натуральное число n и выводит на экран случайное натуральное число, меньшее n и оканчивающееся на 1. Гарантируется, что будет ввeдено натуральное число 1
Тот поступает неправильно. Но это общепринятая версия. Можно писать вирусы и из добрых побуждений. Но чаще всего их пишут из не добрых побуждений. Например. Самые частопоподающиеся вирусы, это трояны. Это самы распростоненный вирус. Да. Он плохо влияет на компьютер. И его пишут либо от скуки, и желания навредить кому то, либо целенаправленно. Но в любом случае, это плохо. Хорошие вирусы, как я думаю, то это те вирусы, которые для своего беззаботного существования, удаляют все другие вирусы с компьютера. Да. Если этот вирус не обнаружить, и не удалить. То он нанесет урона во много раз больше. Но в итоге можно сказать. Что тот кто пишеь вирусы. Поступает плохо, тем, что мешает другим пользователям нормально работать. А в некоторых случаях, и лишает их самого компьютера.
# Код на ruby 2.2.3p173 def zadanie(jump1, jump2) min = jump1 for i in 1..1000 next if (i*jump1)%jump2 == 0 or (i*jump2)%jump1 == 0
if min > (i*jump1)%jump2 min = (i*jump1)%jump2 p [min, "#{i} * #{jump1} - #{i*jump1/jump2} * #{jump2}"] end
if min > (i*jump2)%jump1 min = (i*jump2)%jump1 p [min, "#{i} * #{jump2} - #{i*jump2/jump1} * #{jump1}"] end end return min end # # Примеры применения p zadanie(33, 55)
Программа:
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.