Xiao Ming y Xiao Hong juegan juntos a contar: Xiao Ming presiona 1-A1 para contar en un bucle, y Xiao Hong presiona 1-A2 para contar en un bucle. Ambas personas empiezan al mismo tiempo y cuentan a la misma velocidad.
var a, hong, ming, N, i, A1, A2, ans: longint
comenzar
ans: =0;
readln(N, A1, A2); 'Aquí está el registro de cuántos números reportar y A1, A2
para i:=0 a N-1 haz 'Aquí está el número de bucles reportados N veces
begin
ming: = (i mod A1) 1; 'Aquí están los números reportados por Xiao Ming y Xiao Hong en la enésima vez. tomando el resto cuando se informa
hong: = (i mod A2) 1; cuando el número llega a A1, A2, el cálculo comienza nuevamente desde cero. Sumar 1 significa informar de 1 a A1, A2. p>
if ming=hong entonces ans;=ans 1; 'Cada vez que es igual, el contador "ans" aumenta en 1.
end;
escribir (ans); 'Aquí está la respuesta de salida
end.