Составьте программу нахождения наименьшего общего кратного (нок) двух чисел, используя формулу: а × в = нод(а, в) × нок(а, в

Function nod (var m,n: integer): integer;   begin  while (m*n < > 0) do  begin  m : = m mod n;   n : = n mod m;   end;   if (m = 0) then nod : = n  else nod : = m;   end;   используй эту функцию в программе: nod_ab : = nod (a, b); nod_abc : = nod(nod_ab,c).  аналогично с нок.

<h1>Таблица</h1>

<div style="margin-left: 30%;margin-bottom: 100px;">

<form action="" method="POST">

<table>

<tr><td>

           <label for="surname">Фамилия:</td><td><input type="text" name="surname" id="name" value="<?php echo $surname; ?>"></label></td>

           </tr><tr>

           <td>

           <label for="name">Имя:</td><td><input type="text" name="name" id="name" value="<?php echo $name; ?>"></label></td>

           </tr><tr>

           <td>

           <label for="patronymic">Отчество:</td><td><input type="text" name="patronymic" id="patronymic" value="<?php echo $patronymic; ?>"></label></td>

           </tr><tr>

           <td>

           <label for="age">Дата рождения:</td><td><input type="text" name="age" id="age" value="<?php echo $age; ?>"></label> </td>

           </tr><tr>

           <td>

          <label for="phone">Телефон:</td><td><input type="text" name="phone" id="phone" value="<?php echo $phone; ?>"></label></td>

           </tr><tr>

           <td>

         <label for="gender">Пол:</td><td><input type="text" name="gender" id="gender" value="<?php echo $gender; ?>"></label>

           </tr><tr>

           </td>

           <label for="address">Баланс:</td><td><input type="text" name="balance" id="balance" value="<?php echo $balance; ?>"></label>                        </td>

          </tr><tr>

             <label for="address">Скидка:</td><td><input type="text" name="discount" id="discount" value="<?php echo $discount; ?>"></label></td>

          </tr><tr>

<label for="address">Бонус:</td><td><input type="text" name="bonus" id="bonus" value="<?php echo $bonus; ?>"></label></td>

       </table>

       <input type="hidden" name="id" value="<?php echo($id);?>">

       <input type="submit" value="<?php echo($button);?>">

       </form>

Длина символов строки и маска для номера задается в SQL server.

алгоритм далек от совершенства, медленный, но считает правильно. Паскаль

Объяснение:

var

 col: integer;

 i, k: longint;

 del: boolean;

function prost(a: longint): boolean;

var c: integer;

begin

 prost := a >= 2;

 for c := 2 to trunc(sqrt(a)) do if a mod c = 0 then prost := false;

end;

begin

 i := 2;

 col := 1;

 repeat

   del := (i mod 2 = 0) or (i mod 3 = 0) or (i mod 5 = 0);

   for k := 6 to i div 2 do if (prost(k) = true) and (i mod k = 0) then del := false;

   if del then

   begin

    Write(i, ', ');

    inc(col);

   end;

   inc(i);

 until col > 1000;

end.