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. J