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

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

Question

Информатика

Викторинка

24 ноября, 15:38

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

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

+3

Ответы (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.