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

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

Question

Информатика

Авенир

26 марта, 13:38

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

Дан механизм, состоящий из двух шестеренок. У одной шестеренки 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.