< >

Помогите задание по 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.
Похожие вопросы
Английский язык
2 года назад
Read the information and write in the missing words. before you travel to the country you must find out what documents you 1)_____ British people don't 2)_____ to get a visa .but for
Русский язык
2 года назад
Я бы хотел, что(бы) атомная сказка имела счастливый конец,как и любая сказка в мире. Частица бы пишется вместе???
Биология
6 лет назад
Під час мейозу ІІ у сперматоциті людини (2n = 46) одна пара сестринських хроматид відійшла до одного полюсу. Скільки сперматозоонів ,2 чи 4 і з якою кількістю хромосом утвориться із цієї клітини?
Математика
6 лет назад
допоможіть прошу! треба сьогодні скинути!​
Математика
9 лет назад
Найдите сторону АВ треугольника CD если A C равно 1 сантиметров угол C равен 30 градусов угол А равен 120 градусов
Математика
9 лет назад
Сколько процентов от 200тенге составляет 30 тенге?
Математика
9 лет назад
дополните задачу,поставте вопрос,составте выражение и решите задачу.Оля собрала 20 грибов,мама -   грибов,вечером мама пожарила
История
9 лет назад
изложите основные положения учения дж локка о естественных прирождённых правах человека. СРОЧНОО!!!