составьте программу определения наименьшего общего кратного 2 натуральных чисел....

October 2021 1 19 Report

составьте программу определения наименьшего общего кратного 2 натуральных чисел. на абс паскале плис

Answers & Comments

Жавбасаров Program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
n,m,k,c:integer;

function NOD(x,y:integer):integer;
Begin
If x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
End;

function NOK(x,y:integer):integer;
Begin
NOK:=(x div NOD (x,y))*y;
end;

begin
writeln('Enter M, N, K');
write('m = ');readln(m);
write('n = ');readln(n);
write('k = ');readln(n);
c:=NOK(k,m);
k:=nok(c,n);
writeln('NOK(M,N,K) = ',k);
readln;
end.

2 votes Thanks 1

Answers & Comments

помогите с алгеброй пожалуйста...

помогите пожалуйста, как решить...

словообразовательный разбор слова обнаженные, пожалуйста...

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

пожалуйста. напишите программу, вычисляющую сумму квадратов от 1 до N. на ABC па...

составьте программу определения наибольшего общего делителя двух натуральных чис...

помогите с инфой. плиз, кто шарит в паскале. нужно составить программу в ABC пас...

Составьте программу, подсчитывающую количество цифр вводимого вами целого не отр...

составьте программу, определяющую максимальное из всех вводимых вами чисел. на ...

Вычислите сумму квадратов четных натуральных чисел. решите пожалйста,на ABC паск...

рекомендуемые вопросы

Helpful Links

Helpful Social