По разделам



Задача Proc 48


Учитывая, что наименьшее общее кратное двух целых положительных чисел A и B равно A·(B/НОД(A, B)), где НОД(A, B) — наибольший
общий делитель A и B, и используя функцию NOD2 из задания Proc46,
описать функцию NOK2(A, B) целого типа, находящую наименьшее общее кратное чисел A и B. С помощью NOK2 найти наименьшие общие
кратные пар (A, B), (A,C), (A, D), если даны числа A, B, C, D.

Код (C/C++)

#include <stdio.h>
int nod2(int a ,int b){
    while ((a!=0)&&(b!=0)){
        if (a>b) a%= b;
        else b%=a;
    }
    return a+b;
}
 
int nok2(int a ,int b){
    return a*(b/nod2(a,b));
}
 
 
int main(void)
{
    int a,b,c,d;
    printf("A:");
    scanf("%i", &a);
    printf("B:");
    scanf("%i", &b);
    printf("C:");
    scanf("%i", &c);
    printf("D:");
    scanf("%i", &d);
    printf("NOK(a,b): %i\n", nok2(a,b));
    printf("NOK(a,c): %i\n", nok2(a,c));
    printf("NOK(a,d): %i\n", nok2(a,d));
    return 0;
}

Код (Python)

import random
import math

def NOD2(A,B):
    while B != 0:
        A,B = B,A%B
    return A

def NOK2(A,B):
    return A * B / NOD2(A,B)

for i in range(0,4):
    A = random.randrange(1,100)
    B = random.randrange(1,100)

    y = NOK2(A,B)
    print(A,";",B,";",y)
    print(y,":",A,"=",y/A)
    print(y,":",B,"=",y/B)
    print()
									

Код (Pascal)

program Proc48;
 
Function NOD2(A,B:Integer):Integer;
begin
   while (A<>0) and (B<>0) do
   begin
    if a>b then A:=(a mod b)
    else B:=(B mod A);
   end;
   NOD2:=A+B;
end;
 
Function NOK2(A,B:Integer):Integer;
begin
   NOK2:=A*(B div NOD2(A,B));
end;
 
var
  A, B, C, D: integer;
 
begin
   Write('A :');
   Readln(A);
   Write('B :');
   Readln(B);
   Write('C :');
   Readln(C);
   Write('D :');
   Readln(D);
   Writeln(NOK2(A,B));
   Writeln(NOK2(A,C));
   Writeln(NOK2(A,D));
end.
									




Proc. Абрамян
Proc 1 Просмотров: 11
Proc 2 Просмотров: 11
Proc 3 Просмотров: 9
Proc 4 Просмотров: 10
Proc 5 Просмотров: 11
Proc 6 Просмотров: 7
Proc 7 Просмотров: 10
Proc 8 Просмотров: 10
Proc 9 Просмотров: 10
Proc 10 Просмотров: 8
Proc 11 Просмотров: 12
Proc 12 Просмотров: 7
Proc 13 Просмотров: 11
Proc 14 Просмотров: 11
Proc 15 Просмотров: 10
Proc 16 Просмотров: 9
Proc 17 Просмотров: 18
Proc 18 Просмотров: 11
Proc 19 Просмотров: 12
Proc 20 Просмотров: 8
Proc 21 Просмотров: 10
Proc 22 Просмотров: 9
Proc 23 Просмотров: 7
Proc 24 Просмотров: 10
Proc 25 Просмотров: 7
Proc 26 Просмотров: 9
Proc 27 Просмотров: 12
Proc 28 Просмотров: 16
Proc 29 Просмотров: 19
Proc 30 Просмотров: 23
Proc 31 Просмотров: 10
Proc 32 Просмотров: 10
Proc 33 Просмотров: 8
Proc 34 Просмотров: 16
Proc 35 Просмотров: 6
Proc 36 Просмотров: 9
Proc 37 Просмотров: 9
Proc 38 Просмотров: 8
Proc 39 Просмотров: 11
Proc 40 Просмотров: 8
Proc 41 Просмотров: 11
Proc 42 Просмотров: 8
Proc 43 Просмотров: 8
Proc 44 Просмотров: 11
Proc 45 Просмотров: 12
Proc 46 Просмотров: 9
Proc 47 Просмотров: 7
Proc 48 Просмотров: 11
Proc 49 Просмотров: 9
Proc 50 Просмотров: 10
Proc 51 Просмотров: 16
Proc 52 Просмотров: 9
Proc 53 Просмотров: 11
Proc 54 Просмотров: 8
Proc 55 Просмотров: 10
Proc 56 Просмотров: 9
Proc 57 Просмотров: 8
Proc 58 Просмотров: 10
Proc 59 Просмотров: 7
Proc 60 Просмотров: 8

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться