| 1 |
program PrintAscii; var i, j: integer; c: char; begin write(' | '); for c := '0' to '9' do write(' .' , c); for c := 'A' to 'F' do write(' .' , c); writeln; write(' |'); for i := 1 to 16 do write('---'); writeln; for i := 2 to 7 do begin write(i, '.|'); for j := 0 to 15 do write(' ' , chr(i*16 + j)); writeln end end. |
| 2 |
program OlympiadCounter; const MaxSchool = 67; MaxGroup = 100; type CountersArray = array [1..MaxSchool] of integer; var Counters: CountersArray; i, c, n: integer; begin for i := 1 to MaxSchool do Counters[i] := 0; {$I-} while not eof do begin readln(c); if IOResult <> 0 then begin writeln('Incorrect data'); halt(1) end; n := c div MaxGroup; if (n < 1) or (n > MaxSchool) then begin writeln('Illegal school id: ', n, ' [', c, '] '); halt(1) end; Counters[n] := Counters[n] + 1 end; n := 1; for i := 2 to MaxSchool do if Counters[i] > Counters[n] then n := i; for i := 1 to MaxSchool do if Counters[i] = Counters[n] then writeln(i) end. |
| 3 |
type Checkpoint = record n: integer; latitude, longitude: real; hidden: boolean; penalty: integer; end; var cp: Checkpoint; cp.n := 70; cp.latitude := 54.83843; cp.longitude := 37.59556; cp.hidden := false; cp.penalty := 30; a[1] := 1; for i := 2 to 100 do a[i] := a[i-1] / 2; for i := 1 to 100 do b[i] := sin (a[i]); for i := 1 to 100 do b[i] := sin (a[i]); for i := 1 to 100 do writeln(a[i], ' ', b[i]); |
| 4 |
type real100 = array [1..100] of real; var a, b: real100; |
Комментарии