Нужно написать программу в Паскале Дан механизм,состоящий из двух шестеренок. У одной шестеренки N зубцов,у другой K. Требуется найти какое минимальное число поворотов на один зубчик требуется сделать,чтобы шестеренки вернулис...
Нужно написать программу в Паскале
Дан механизм,состоящий из двух шестеренок. У одной шестеренки N зубцов,у другой K. Требуется найти какое минимальное число поворотов на один зубчик требуется сделать,чтобы шестеренки вернулись в исходное состояние.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы