var i: integer; g: text; begin assign( g, 'vystup.txt' ); rewrite( g ); i := 1; while i <= 1000 do begin writeln( g, i ); i := i+1 end; close( g ) end. var f: text; zn: char; begin {$Q+} {$R+} {$B-} {$B+} assign( f, 'pokus.pas' ); reset( f ); (* {$I-}reset( f );{$I+} if IOResult<>0 then begin write( 'Doslo k chybe pri otevirani souboru' ) end; *) while not eof(f) do begin read( f, zn ); if zn=' ' then zn := '.'; if zn<>'.' then write( zn ) end; close( f ) end. var fi: longint; begin fi := 0; while fi <= 360*1000*1000 do begin writeln( '####':(30 + round( 30*sin(fi/100/180*pi) ) ) ); fi := fi + 1 end end. begin writeln( pi:5:3 ) end. var i: longint; begin i := 1; while i <= 1000*1000 do begin write( #13,i ); i := i+1 end end. begin writeln( '----------------------' ); writeln( char(13), chr(10), chr(13), chr(10 ); writeln( #13#10 ); writeln; writeln; writeln; writeln; writeln; writeln( '----------------------' ); end. var x: integer; begin while not SeekEof do begin read( x ); write( x ) end end. var zn: char; x: integer; begin x := 0; read( zn ); while (zn >= '0') and (zn <= '9') do begin x := 10 * x + ord(zn)-ord('0'); read( zn ) end; write( x ) end. begin write( ' '' '' '' ' ) end. var N, D: integer; JestePoradSiMyslimZeJeToPrvocislo: boolean; begin read( N ); D := 2; JestePoradSiMyslimZeJeToPrvocislo := TRUE; { while JestePoradSiMyslimZeJeToPrvocislo and (D < N) do } while JestePoradSiMyslimZeJeToPrvocislo and (D < sqrt(N)) do begin if (N mod D) = 0 then JestePoradSiMyslimZeJeToPrvocislo := FALSE else D := D+1 end; if JestePoradSiMyslimZeJeToPrvocislo then write( 'PRVOCISLO' ) else write( 'cislo SLOZENE' ) end. var x, minx: integer; Rostla, Klesla, BylaStejna: boolean; begin Rostla := FALSE; Klesla := FALSE; BylaStejna := FALSE; read( minx ); read( x ); while x<>-1 do begin if x > minx then Rostla := TRUE else if x < minx then Klesla := TRUE else BylaStejna := TRUE; minx := x; read( x ) end; if Rostla then if Klesla then write( 'Neni monotonni' ) else if BylaStejna then write( 'Neklesajici' ) else write( 'Rostouci' ) else if Klesla then if BylaStejna then write( 'Nerostouci' ) else write( 'Klesajici' ) else if BylaStejna then write( 'Konstantni' ) else write( 'Jednoprvkova' ) end.