Нужно написать программу в Паскале

Дан механизм, состоящий из двух шестеренок. У одной шестеренки N зубцов, у другой K. Требуется найти какое минимальное число поворотов на один зубчик требуется сделать, чтобы шестеренки вернулись в исходное состояние.

Question

Информатика

Кося

2 июля, 17:10

Нужно написать программу в Паскале

Дан механизм, состоящий из двух шестеренок. У одной шестеренки N зубцов, у другой K. Требуется найти какое минимальное число поворотов на один зубчик требуется сделать, чтобы шестеренки вернулись в исходное состояние.

+4

Ответы (1)

Знаете ответ на вопрос?

Санюта · Answer 1

Program task;

var i, n, k:longint;

begin

writeln ('n?') ;

readln (n) ;

writeln ('k?') ;

readln (k) ;

for i:=1 to n*k do begin

if ((i mod n = 0) and (i mod k = 0)) then begin

writeln (i) ;

break;

end;

end;

readln;

end.