Наименьшего общего кратного (НОК) двух чисел

Вид формы с компонентами:

Процедура обработки щелчка на кнопке “Расчет

procedure TForm1.Button1Click(Sender: TObject);

var M,N,NOD,NOK:word; i,k:word;

Begin

M:=StrToInt(Edit1.text); N:=StrToInt(Edit2.text);

if N>M then k:=M else k:=N;

NOD:=1;

for i:=1 to k do

if (N mod i=0) and (M mod i=0) then NOD:=i;

NOK:=NOD*(N div NOD)*(M div NOD);

Label4.Caption:='NOD='+IntToStr(NOD);

Label5.Caption:='NOK='+IntToStr(NOK)

End;

Задания к лабораторной работе

Разработать приложение, в котором при щелчке на кнопке " Решение " на форме появляется решение вашего варианта:

1. Указать число, в двоичном представлении которого больше всего единиц.

2. Разложить на простые множители числа последовательности, сумма цифр которых кратна 7.

3. Указать число, которое делится на каждую из своих цифр.

4. Найти все натуральные числа, не превосходящие заданного N и делящиеся на каждую из своих цифр.

5. Для каждого простого числа этой последовательности найти число, чья двоичная запись числа получается из двоичной записи найденного числа изменением порядка цифр на обратный.

6. Найти все совершенные числа последовательности.

7. Найти все симметричные числа последовательности.

8. Для всех простых чисел последовательности найти цифровой корень.

9. Распечатать числа последовательности равные числу А.

10. Определить количество простых чисел палиндромов.

11. Определить количество взаимно простых чисел палиндромов.

12. Распечатать количество чисел, чья сумма цифр кратна заданному числу.

Лабораторная работа №5