Gard

Doi copii vopsesc un gard din scânduri pe care le vom numerota de la l la n astfel: primul ia o cutie de vopsea roşie cu care vopseşte scândurile cu numărul p, 2p, 3p, etc. Al doilea procedează la fel, începe de la acelaşi capăt al gardului dar ia o cutie de vopsea albastră şi vopseşte din q în q scânduri. Astfel, când vor termina de vopsit, gardul va avea multe scânduri nevopsite, unele scânduri vopsite în roşu, altele în albastru, iar altele în violet. Cunoscând numerele n, p şi q afişaţi:
a) câte scânduri rămân nevopsite b) câte scânduri sunt vopsite în roşu
c) câte scânduri sunt vopsite în albastru
d) câte scânduri sunt vopsite în violet

citeste n, p,q
r<-0
a<-0
v<-0
i<-1
cat timp i<=n executa
{
daca i%p==0 atunci r<-r+1
daca i%q==0 atunci a<-a+1
daca i%p==0 && i%q==0 atunci v<-v+1
i<-i+1
}
scrie "Numarul scandurilor nevopsite este ", n-(r+a-v)
scrie "Numarul scandurilor vopsite in rosu este ", r-v
scrie "Numarul scandurilor vopsite in albastru este ", a-v
scrie "Numarul scandurilor vopsite in violet este ", v

andrea uite o varianta mai logica la ce ai facut tu ca nu se intelege(adik e ok dar ma rog):
citeste n,p,q;
r=0;
a=0;
v=0;
i=0;
cat timp i<=n executa
{i=i+1;
daca i%p==0 && i%q==0 atunci v=v+1;
altfel
{daca i%p==0 atunci r=r+1;
daca i%q==0 atunci a=a+1;}
}
scrie "nevop=",n-a-r-v;
scrie "rosii=",r;
scrie"albastre=",a;
scrie "violet=",v;

varianta lu moi:
citeste n,p,q;
pp=p;
qq=q;
cat timp(pp!=qq) executa
daca (pp < qq) atunci qq=qq-pp;
altfel pp =pp-qq;
cm=(p*q)/pp;
v=n/cm;
r=n/p-v;
a=n/q-v;
n=n-v-r-a;
scrie,v,r,a,n;

Sunt de acord cu variantele celorlalti, insa eu m-am gandit sa o fac astfel, desi pare mai complicat, eu cred ca e mai logic (sau cel putin asa mi se pare mie..):
citeste p, q, n
nu<-0
v<-0
r<-0
a<-0
s<-q
i<-1
{
cat timp i<=n executa
{daca i==p && i==q atunci v<-v+1
altfel {daca i==p atunci r<-r+1 altfel {daca i==q atunci a<-a+1 altfel nu<-nu+1}}}
i<-i+1
p<-i*p
q<-q+s
}
scrie nu, "nevopsite", v, "violet", r, "rosii", a, "albastre"
Este corecta???

Stan Adela a scris:

Sunt de acord cu variantele celorlalti, insa eu m-am gandit sa o fac astfel, desi pare mai complicat, eu cred ca e mai logic (sau cel putin asa mi se pare mie..):
citeste p, q, n
nu<-0
v<-0
r<-0
a<-0
s<-q
x<-p
i<-1
{
cat timp i<=n executa
{daca i==p && i==q atunci v<-v+1
altfel {daca i==p atunci r<-r+1 altfel {daca i==q atunci a<-a+1 altfel nu<-nu+1}}}
i<-i+1
p<-p+x
q<-q+s
}
scrie nu, "nevopsite", v, "violet", r, "rosii", a, "albastre"
Este corecta???

Am modificat-o in citat, cea anterioara nu este corecta..