Составьте алгоритм нахождения произведения z двух натуральных чисел x и y безиспользования операции умножения

Var                                       i,z,y,x: integer;                 // объявление переменных begin                               // начало программы writeln('введите числа: '); // вывод сообщения readln(x,y);                       //  ввод чисел х и у с клавиатуры while i < > y do                     // повторять цикл пока i не будет равно y   begin                               // вход в цикл   z: =z+x;                             // z = z + x   (при первом шаге получается 0 = 0 + х)    i: =i+1;                             // увеличиваем счетчик цикла на 1    end;                                 // выход из цикла write(z);                             // вывод z (произведение х и у) end.                                 // конец программы 

Числа представлены в двоичной системе счисления. чтобы их перемножить требуется: z = 0 перебирать разряды числа y, начиная с младшего начало цикла   если очередной разряд = 1, прибавить текущее число x к z;   умножить число x на 2. т.к. без умножения, то с битового сдвига на 1           влево в двоичной сс конец цикла собственно, это умножение в столбик в двоичной сс

всего три числа?

решу с рандомным

 

на паскале:  

 

var

a,b,c: integer;

min, max: integer;

 

begin clrscr;

 

a: =random(10)+0;

b: =random(10)+0;

c: =random(10)+0;

 

if (a< b) and (a< c) then

  min: =a

else

  if (c< a) and (c< b) then

  min: =c

  else

  min: =b;

 

if (a> b) and (a> c) then

  max: =a

else

  if (c> a) and (c> b) then

  max: =c

  else

  max: =b;

 

writeln('максимальное: ',max);

writeln('минимальное: ',min);

 

readkey;

end.

хочу , что до настоящего времени эта для любого натурального n численно не ! . то есть, до сих пор не написана программа, которая, работая на самом мощном компьютере, могла бы определить простоту числа n за приемлемое время(не сотни и тысячи лет, как сейчас). конечно, эти n - большие. если  бы кто нибудь написал такую программу, то рухнула бы вся банковская система, и все отрасли, включая военные, так как везде  применяются алгоритмы шифрования данных, основанные на простых числах и подобрать шифр можно было бы за приемлемое время. вот такая с этой сложной .

 

что касается "детского" варианта, наверное самый простой алгоритм - решето эратосфена. да, красивое(но ресурсное) решение может получиться с использованием рекурсии(не знаю, допускает ли рекурсию школьный паскаль, но поинтересуйтесь, что это такое).

 

текст программы приводить не буду, он, вероятно, опубликован в каждом втором букваре по программированию.