Probleme cu structuri repetitive

Iata un set de probleme care sa va ajute pentru pregatirea lucrarii:

1) Se introduc vârstele a n bărbaţi. Afişaţi câţi au vârsta mai mare decât 50 şi mai
mică decât 70 de ani. Exemplu: Date de intrare n=4 vârste 56 45 76 65 Date de ieşire 2 bărbaţi

2) Se introduc N numere întregi. Să se verifice dacă toate cele N valori sunt negative.

3. Determinaţi numerele naturale de 5 cifre care sunt egale cu oglinditele lor. (cum ar fi numerele 12321, 14741, e.t.c)

4. Se citesc numere întregi PÂNĂ LA INTRODUCEREA VALORII ZERO. Să se determine câte dintre numerele date sunt prime.

5. Să se afişeze toate numerele de forma acbb divizibile cu 15.

1.
citeste n
p<-0
i<-1
cat timp i<=n executa
{
citeste x
daca x>=50 && x<=70 atunci p<-p+1
i<-i+1
}
scrie p
daca p==1 atunci scrie "barbat"
altfel scrie "barbati"

2.
citeste N
i<-1
n<-0
p<-0
cat timp i<=N executa
{
citeste x
daca x<0
{
atunci n<-n+1
altfel p<-p+1
}
i<-i+1
}
daca p==0 && n!=0
{
atunci scrie "Da"
altfel scrie "Nu"
}

3.
i<-10000
cat timp i<=99999 executa
{
a<-[ i/10000 ]
b<-[ i/1000 ] %10
c<-[ i/100 ] %10
d<-[ i/10 ] %10
e<- i%10
daca a==e && b==d atunci scrie i
i<-i+1
}

4.
p<-0
executa
{
citeste x
d<-2
n<-0
cat timp d{
daca x%d==0 atunci n<-n+1
d<-d+1
}
daca n==0 atunci p<-p+1
}
cat timp x!=0
scrie p

5.
i<-1000
cat timp i<=9999 executa
{
a<-[ i/1000]
b<-[ i/100] %10
c<-[i/10] %10
d<-i%10
daca c==d && a!=b && a!=c && b!=c && i%15==0 atunci scrie i, " "
i<-i+1
}

Nicolae Andreea a scris:

4.
p<-0
executa
{
citeste x
d<-2
n<-0
cat timp d<x executa
{
daca x%d==0 atunci n<-n+1
d<-d+1
}
daca n==0 atunci p<-p+1
}
cat timp x!=0
scrie p

Daca te uiti in mesajul tau (asta din citat e corectat deja) nu se vede expresia logica din cat timp.
Se pune & lt ; (fara spatii) in loc de semnul mai mic

1.
citeste n
i←1
z←0
┌cat timp i<=n executa
│ citeste m
│ ┌daca m>50 && m<70 atunci
│ │ z←z+1
│ └■
│ i←i+1
└■
scrie z


2.
citeste n
i←1
neg←0
┌cat timp i<=n executa
│ citeste m
│ ┌daca m<0 atunci
│ │ neg←neg+1
│ └■
│ i←i+1
└■
┌daca neg==n atunci scrie "toate nr sunt negative"
│ altfel scrie "nu"
└■


3.
n←10000
┌cat timp n<100000 executa
│ a←n/10000
│ b←n/1000%10
│ c←n/10%10
│ d←n%10
│ ┌daca a==d && b==c atunci
│ │ scrie n
│ └■
│ n←n+1
└■


4.
ok←1
x←0
┌executa
│ citeste m
│ i←2
│ prim←0
│ ┌cat timp i<=m/2 executa
│ │ daca m%i==0 atunci
│ │ prim←prim+1
│ │ i←i+1
│ └■
│ ┌daca m==0 atunci
│ │ ok←0
│ └■
│ ┌daca prim==0 && m!=0 atunci
│ │ x←x+1
│ └■
└■cat timp ok==1
scrie x , " numere prime "


5.
n←1000
┌cat timp n<10000 executa
│ b←n/10%10
│ d←n%10
│ ┌daca b==d atunci
│ │ ┌daca n%15==0 atunci
│ │ │ scrie n
│ │ └■
│ └■
│ n←n+1
└■

alternativa pt problema 2 (nu de alta dar parca se executa cu o viteza mai mare)
citeste n;
i<-1;
ok<-1;
cat timp i<=n executa
{ citeste a;
daca a>=0 atunci ok=0;
i=i+1;
}
daca ok atunci scrie "da";
altfel scrie "nu";

problema 4;

prim<-1;
x<-0;
executa
{ citeste n;
daca n>0 atunci
{prim<-1;
d<-2;
cat timp d<=sqrt(n) && prim==1 executa
{daca (n%d==0) atunci prim<-0;
altfel d=d+1;}
daca(prim==1) x<-x+1;}
}cat timp(n!=0);
scrie "sunt",x,"nr prime";
gata acum cred cai bun

problema 5;

i=1000;
cat timp i<10000 executa
{a=i/1000;
c=i/100%10;
b=i/10%10;
d=i%10;
daca b==d && d%5==0 && (a+b+c+d)%3==0 atunci scrie i ;
i<-i+1;
}

Nica Ionut a scris:

problema 4;

prim<-1;
d<-2;
x<-0;
cat timp(n!=0) executa
{ citeste n;
cat timp d<=sqrt(n) && prim==1 executa
{daca (n%d==0) atunci prim<-0;
altfel d=d+1;}
daca(prim==1) x<-x+1;
}
scrie "sunt",x,"nr prime";

sigur merge ? ai incercat-o in minGW?

Nica Ionut a scris:

problema 4;

prim<-1;
x<-0;
executa
{ citeste n;
daca n>0 atunci
{prim<-1;
d<-2;
cat timp d<=sqrt(n) && prim==1 executa
{daca (n%d==0) atunci prim<-0;
altfel d=d+1;}
daca(prim==1) x<-x+1;}
}cat timp(n!=0);
scrie "sunt",x,"nr prime";
gata acum i bun

acum i bine

Nicolae Andreea a scris:

2.
citeste N
i<-1
n<-0
p<-0
cat timp i<=N executa
{
citeste x
daca x<0
{
atunci n<-n+1
altfel p<-p+1
}
i<-i+1
}
daca p==0 && n!=0
{
atunci scrie "Da"
altfel scrie "Nu"
}

Nu inteleg de ce te-ai complicat atat, cand era foarte simplu, de exemplu cum a facut Cristi Nancu.. Adica, eu tot asa am gandit-o si mi se pare cel mai logic

este buna si varianta asta ptr problema 5?

a<- 1
{
cat timp a<=9 executa
c<-0
{
cat timp c<=9 executa
b<-0
{
cat timp b<=9 executa
acbb<- 1000*a+100*c+10*b+b
{daca acbb%15==0 atunci scrie acbb}
b<-b+1
}
c<-c+1
}
a<-a+1
}