Найти НОК('x' и его суммы(x2)) например: 26=x; x2=6+2=8; + найти НОК или 129=x; x2=1+2+9=12; + найти НОК НО только ввиде программы!!!
Найти НОК('x' и его суммы(x2)) например: 26=x; x2=6+2=8; + найти НОК или 129=x; x2=1+2+9=12; + найти НОК НО только ввиде программы!!!
Гость
Ответ(ы) на вопрос:
Гость{ Паскаль }
Function NOD(a,b : Longint) : Longint;
Begin
If (a mod b)=0 then NOD:=b else Nod:=NOD(b,a mod b);
end;
Function NOK(a,b : Longint) : Longint;
Begin
NOK:=abs(a*b) div NOD(a,b);
End;
Function SumCifr(A : Longint) : Integer;
Begin
If A>0 then SumCifr:=(A mod 10) +SumCifr(A div 10) else SumCifr:=0;
End;
Var x : Integer;
Begin
Readln(x);
Writeln(NOK(x,SumCifr(x)));
end.
Не нашли ответ?
Похожие вопросы