Algunas resoluciones del TP3: Ciclos - Programación

Algunas resoluciones TP3: Ciclos
Ejercicio 3

Proceso 3

Definir N como real

Escribir "inserte numero cuadrado perfecto"

Leer N

S<-N

A<-1

C<-0

Mientras S>=A hacer

S<-S-A

A<-A+2

C<-C+1

FinMientras

Escribir "raiz: " C

FinProceso



Ejercicio 4

Proceso 4

Definir N1,N2 Como Real

S<-0

Leer N1

Leer N2

Mientras N1>0 hacer

si N1 mod 2<>0 Entonces

, S<-S+N2

FinSi

N1<-trunc(N1/2)

N2<-N2*2

Finmientras

Escribir "producto: " S

FinProceso



Ejercicio 6

Proceso 6

Definir N Como Real

Leer N

Si N>=100 y N<=999 entonces

A<-trunc(N/100)

B<-trunc((N-A*100)/10)

C<-(N-A*100-B*10)

Escribir C,B,A

FinSi

FinProceso



Ejercicio 7

Proceso 7

Definir A como real

I<-0

P<-0

N<-0