profile
Опубликовано 5 лет назад по предмету Информатика от futballer86rus

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

  1. Ответ
    Ответ дан affeqt
    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.