Помогите задание по Delphi 7 ))
Подробно распишите код) пожалуйста))
Приложения:
Ответы на вопрос
Ответил ayshatsh
0
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.
Новые вопросы