Помогите задание по Delphi 7 )) Подробно распишите код) пожалуйста))
Помогите задание по Delphi 7 ))
Подробно распишите код) пожалуйста))
Гость
Ответ(ы) на вопрос:
Гость VAR
N1,N2,M,i:LongInt;
BEGIN Write('N1= ');
ReadLn(N1);
Write('N2= ');
ReadLn(N2);
If N1>N2 then M:=N1 else M:=N2;
i:=M-1;
Repeat Inc(i);
Until ((i mod N1)=0) and ((i mod N2)=0);
Writeln('Result is ',i);
Readln
END.
Не нашли ответ?
Похожие вопросы