Padėkite su fps pascal while ciklu

Sveiki, neseniai pradėjau mokintis while ciklą bet nėkiek nekertu suprantu ką daro bet nelabai žinau kaip jį teisingai užrašyti reikiamai programai o ryt atsiskaitymas kad galėtų padėti?

1. Duotas skaicius kiek jame yra lyg, nelyg, lygiu 0 skaitmenu.

2. Naudodami while cikla parasykite programa pakelti skaiciu neneigiamu sveikuoju laipsniu.

3. Suskaiciukote kiek skaicius turi dalikliu. Atspauzdinkite juos.

4. Yra tokiu idomiu skaiciu kur kiekvieno skaitmens kubo suma yra lygi tam paciam skaiciui. Sudarykite programa viesiems tokiems galimiems skaiciams rasti.

5. Yra tokie ádomus skaiciai polimorfiniai (skaicius ir apverstas skaicius yra vienodi) raskite kiek ju yra intervale [a;b].

6. Duota seka kurios paskutinis narys 0. Kiek sitoje sekoje yra polimorfiniu skaiciu.

7. Kiek intervale [a;b] yra skaicu kuriu pirmas ir paskutinis skaitmuo = o, kiek skaiciu is kuriu istraukta saknis ir is jo apversto skaiciaus istraukta saknis yra vienodos. Atspauzdinkite skaicius atitinkancius 1,2 salygas ir kiek atitinka abi salygas.

Padarykit bent vieną jai nesunku ir paaiškinkit :(

Dėkingas labai :)

Tai bent pats parodyk ką daręs buvai, o ne sumetei užduotis ir jūs darykit..

Tai bent pats parodyk ką daręs buvai, o ne sumetei užduotis ir jūs darykit..

Tai nedarykit nes aš išvis nesuprantu bent paaiškinkit visur skaitinėju kaip užrašyt tą ciklą bet neina suprast :/

O Tu supranti kaip jis veikia?

O Tu supranti kaip jis veikia?

Suka tol rata kol yra teisinga sąlyga man atrodo :D

//3. Suskaiciukote kiek skaicius turi dalikliu. Atspauzdinkite juos.

program Bevardė2;

Var a,i,c :integer;

begin

WriteLn('Įveskite skaičių');

readln(i,a,c);

i := 1 ;

While a=i do ;

begin

c := a\i ;

i := i+1

end;

writeln© ;

Readln;

end.

bent panašu?