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.