Paprastos programos ciklai
1. PAPRASTOS PROGRAMOS, CIKLAI 1. Parasyti programa, kuri apskaiciuotu funkcijos reiksme:kai x>0, tai y=1, jei x kita reiksme, tai y=2.program Funkcija_I; var x,y:integer; begin WriteLn (‘Ivesk x reiksme’); ReadLn (x); if x>0 then y:= 1 else y:= 2; WriteLn (‘y=’, y); ReadLn; end. 2. Jei 5>x>0, tai y=1, kai 10>x>=5, … Daugiau…