ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° integer ΠΏΠ°ΡΠΊΠ°Π»Ρ ΠΊΠ°ΠΊ ΠΈΡΠΏΡΠ°Π²ΠΈΡΡ
ΠΠΎΠΌΠΎΡΡ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΡΡ , ΠΊΡΡΡΠΎΠ²ΡΡ ΠΈ Π΄ΠΈΠΏΠ»ΠΎΠΌΠ½ΡΡ ΡΠ°Π±ΠΎΡ Π·Π΄Π΅ΡΡ.
ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° real
ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° real. ΠΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΠΈΠΏΠ° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
Π½Π΅ ΠΏΡΠΈΠ½Π΅ΡΠ»ΠΎ ΡΡΠΏΠ΅Ρ
ΠΎΠ².
ΠΡΠΈΠ±ΠΊΠ°: ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° char
program kajdiuvtoroi; var a, b : string; begin writeln(‘Π²Π²Π΅Π΄ΠΈΡΠ΅ ΡΡΡΠΎΠΊΡ:’); readln (a); b :=.

var n, m, x, y, a, i:integer; begin readln(n,m); for i:=1 to n do a:=i; for i:=1 to.
ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°
ΠΡΠΈΠ±ΠΊΠ° Π² ΡΡΡΠΎΠΊΠ΅ 42, ΠΏΠΎΠΌΠΎΠ³ΠΈΡΠ΅ ΠΈΡΠΏΡΠ°Π²ΠΈΡΡ. ΠΠ° ΡΠ°Π½Π΅Π΅ ΡΠΏΠ°ΡΠΈΠ±ΠΎ program test; const s0 =.
ΠΠΎΠΌΠΎΡΡ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΡΡ , ΠΊΡΡΡΠΎΠ²ΡΡ ΠΈ Π΄ΠΈΠΏΠ»ΠΎΠΌΠ½ΡΡ ΡΠ°Π±ΠΎΡ Π·Π΄Π΅ΡΡ.

Π ΠΎΠ±ΡΠ΅ΠΌ Π΄ΠΎΡΠ΅Π» Π΄ΠΎ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ ΠΈ ΡΠ΅ΡΠΈΠ» ΠΏΠΎΠΏΡΠ°ΠΊΡΠΈΠΊΠΎΠ²Π°ΡΡΡΡ Π² Π½ΠΈΡ
, Π½Π°ΠΏΠΈΡΠ°Π² ΠΏΡΠΎΡΡΡΡ.

uses graphABC; type point = record x, y: integer; end; var doodler, background.

Program Massivi; uses crt; Type Digit=array of integer; Matrix=array of byte; var i,j,s,k,c.
ΠΡΠΈΠ±ΠΊΠ° «Π½Π΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° integer»
Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΠΎΡΠΈΠ±ΠΊΡ ‘Π½Π΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° integer’ ΠΏΠΎΠ΄ΡΠΊΠ°ΠΆΠΈΡΠ΅ Π³Π΄Π΅ ΠΌΠΎΡ ΠΎΡΠΈΠ±ΠΊΠ°.
ΠΡΠΈΠ±ΠΊΠ° «ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° char»
ΠΡΠΈΠ±ΠΊΠ° Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ var a: string; b: char; i,j,k,i1: integer; begin writeln (‘ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠ΅ΠΊΡΡ.
ΠΡΠ΄Π°Π΅Ρ ΡΠ°ΠΊΡΡ ΠΎΡΠΈΠ±ΠΊΡ, ΠΏΠΎΠ΄ΡΠΊΠ°ΠΆΠΈΡΠ΅, ΡΡΠΎ ΠΈΡΠΏΡΠ°Π²ΠΈΡΡ ΠΈ ΠΊΠ°ΠΊ ΠΠΎΠΌΠΎΡΡ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΡΡ
, ΠΊΡΡΡΠΎΠ²ΡΡ
ΠΈ Π΄ΠΈΠΏΠ»ΠΎΠΌΠ½ΡΡ
ΡΠ°Π±ΠΎΡ Π·Π΄Π΅ΡΡ. ΠΠΎΠΌΠΎΡΡ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΡΡ
, ΠΊΡΡΡΠΎΠ²ΡΡ
ΠΈ Π΄ΠΈΠΏΠ»ΠΎΠΌΠ½ΡΡ
ΡΠ°Π±ΠΎΡ Π·Π΄Π΅ΡΡ. ΠΡΠΈΠ±ΠΊΠ° «Π½Π΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° integer» ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° real ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° ΠΡΠΈΠ±ΠΊΠ°: ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° char Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΠΎΡΠΈΠ±ΠΊΡ ‘Π½Π΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° integer’ Π·Π°Π΄Π°ΡΠ°: ΠΠΎΠΌΠΎΡΡ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΡΡ
, ΠΊΡΡΡΠΎΠ²ΡΡ
ΠΈ Π΄ΠΈΠΏΠ»ΠΎΠΌΠ½ΡΡ
ΡΠ°Π±ΠΎΡ Π·Π΄Π΅ΡΡ. ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° real ΠΡΠΈΠ±ΠΊΠ° «ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° char» ΠΠΎΠΌΠΎΡΡ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΡΡ
, ΠΊΡΡΡΠΎΠ²ΡΡ
ΠΈ Π΄ΠΈΠΏΠ»ΠΎΠΌΠ½ΡΡ
ΡΠ°Π±ΠΎΡ Π·Π΄Π΅ΡΡ. ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° real. ΠΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΠΈΠΏΠ° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
Π½Π΅ ΠΏΡΠΈΠ½Π΅ΡΠ»ΠΎ ΡΡΠΏΠ΅Ρ
ΠΎΠ². ΠΡΠΎΡΡΠ±Π° ΠΏΠΎΠΌΠΎΡΡ ΡΠ°Π·ΠΎΠ±ΡΠ°ΡΡΡΡ Π² ΠΎΡΠΈΠ±ΠΊΠ΅, Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΡΠ°Π²ΠΈΡΡ ΠΊΠΎΠ΄. ΠΠ° ΡΠ°Π½Π΅Π΅ ΡΠΏΠ°ΡΠΈΠ±ΠΎ. ΠΠΎΠΌΠΎΡΡ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΡΡ
, ΠΊΡΡΡΠΎΠ²ΡΡ
ΠΈ Π΄ΠΈΠΏΠ»ΠΎΠΌΠ½ΡΡ
ΡΠ°Π±ΠΎΡ Π·Π΄Π΅ΡΡ. Program1.pas(144) : ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° real begin end Π΄Π»Ρ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° Π²Π½ΡΡΡΠΈ ΠΈΠ»ΠΈ ΠΏΡΡΡΠΎΠΉ Π½Π΅ Π½ΡΠΆΠ½Ρ. ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΎ ΡΠ΅ΡΠ΅Π· 5 ΠΌΠΈΠ½ΡΡ ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΎ ΡΠ΅ΡΠ΅Π· 19 ΠΌΠΈΠ½ΡΡ ΠΠΎΠΌΠΎΡΡ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΡΡ
, ΠΊΡΡΡΠΎΠ²ΡΡ
ΠΈ Π΄ΠΈΠΏΠ»ΠΎΠΌΠ½ΡΡ
ΡΠ°Π±ΠΎΡ Π·Π΄Π΅ΡΡ. ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° ΠΡΠΈΠ±ΠΊΠ°: ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° char ΠΠ½Π΄Π΅ΠΊΡΠ½ΡΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²Π° Π²Π΅Π΄ΡΡ ΡΠ΅Π±Ρ Π°Π½Π°Π»ΠΎΠ³ΠΈΡΠ½ΠΎ ΠΏΠΎΠ»ΡΠΌ-ΠΌΠ°ΡΡΠΈΠ²Π°ΠΌ ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ, ΠΊΠ°ΠΊ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ, Π΄Π»Ρ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌ ΠΊΠΎΠ½ΡΠ΅ΠΉΠ½Π΅ΡΠΎΠ². ΠΠ°ΠΊ ΠΈ ΠΏΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ ΠΎΠ±ΡΡΠ½ΡΡ
ΡΠ²ΠΎΠΉΡΡΠ², ΠΏΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΡΡ
ΡΠ²ΠΎΠΉΡΡΠ² ΠΌΠΎΠ³ΡΡ ΠΏΠΎΠΏΡΡΠ½ΠΎ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ. ΠΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ ΠΎΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ Π² ΠΊΠ»Π°ΡΡΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ: property Prop[ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΈΠ½Π΄Π΅ΠΊΡΠΎΠ² ]: ΡΠΈΠΏ read IndexedPropertyReader write IndexedPropertyWriter ; Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ IndexedPropertyReader ΠΌΠΎΠΆΠ΅Ρ Π²ΡΡΡΡΠΏΠ°ΡΡ: Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ IndexedPropertyWriter ΠΌΠΎΠΆΠ΅Ρ Π²ΡΡΡΡΠΏΠ°ΡΡ: Π€ΡΠ½ΠΊΡΠΈΡ ΡΡΠ΅Π½ΠΈΡ ΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π·Π°ΠΏΠΈΡΠΈ Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π°ΠΌΠΈ ΡΡΠΎΠ³ΠΎ ΠΊΠ»Π°ΡΡΠ° ΠΈ ΠΈΠΌΠ΅ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ Π²ΠΈΠ΄: function GetProp( ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΈΠ½Π΄Π΅ΠΊΡΠΎΠ² ): ΡΠΈΠΏ ; Π ΠΏΡΠΎΡΡΠ΅ΠΉΡΠ΅ΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΈΠ½Π΄Π΅ΠΊΡΠ° ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° Π²ΡΠ³Π»ΡΠ΄ΠΈΡ ΡΠ°ΠΊ: property Prop[ind: ΡΠΈΠΏ ΠΈΠ½Π΄Π΅ΠΊΡΠ° ]: ΡΠΈΠΏ read GetProp write SetProp; ΠΡΠΈΠ½ΡΠΈΠΏΠΈΠ°Π»ΡΠ½ΠΎΠ΅ ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΡΡ
ΡΠ²ΠΎΠΉΡΡΠ² ΠΎΡ ΠΏΠΎΠ»Π΅ΠΉ-ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ² ΡΠΎΡΡΠΎΠΈΡ Π² ΡΠΎΠΌ, ΡΡΠΎ ΡΠΈΠΏ ΠΈΠ½Π΄Π΅ΠΊΡΠ° ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ»ΡΠ½ΡΠΌ (Π² ΡΠ°ΡΡΠ½ΠΎΡΡΠΈ, ΡΡΡΠΎΠΊΠΎΠ²ΡΠΌ). ΠΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π»Π΅Π³ΠΊΠΎ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ ΡΠ°ΠΊ Π½Π°Π·ΡΠ²Π°Π΅ΠΌΡΠ΅ Π°ΡΡΠΎΡΠΈΠ°ΡΠΈΠ²Π½ΡΠ΅ ΠΌΠ°ΡΡΠΈΠ²Ρ, ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΊΠΎΡΠΎΡΡΡ
ΠΈΠ½Π΄Π΅ΠΊΡΠΈΡΡΡΡΡΡ ΡΡΡΠΎΠΊΠ°ΠΌΠΈ. Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ Π·Π°ΠΊΡΠ°ΡΠΈΠ²Π°Π½ΠΈΡ ΠΊΠ»Π΅ΡΠΎΠΊ ΡΠ°Ρ
ΠΌΠ°ΡΠ½ΠΎΠΉ Π΄ΠΎΡΠΊΠΈ Π±Π΅Π»ΡΠΌ ΠΈΠ»ΠΈ Π² Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΌ ΡΠ΅ΠΆΠΈΠΌΠ΅. uses GraphWPF; var c: ChessBoard := new ChessBoard; begin ΠΠΎΠΆΠ½ΠΎ Π½Π΅ ΠΏΠΈΡΠ°ΡΡ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ getCell ΠΈ setCell Π΄Π»Ρ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΡΠ²ΠΎΠΉΡΡΠ²Ρ Π½Π° ΡΡΠ΅Π½ΠΈΠ΅ ΠΈ Π·Π°ΠΏΠΈΡΡ, Π° Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΡΠ°ΡΡΠΈΡΠ΅Π½Π½ΡΠΌΠΈ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΡΠΌΠΈ ΡΠ²ΠΎΠΉΡΡΠ²Π°ΠΌΠΈ:
uses crt < uses ΡΠΏΠΈΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΌΡΡ
ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ,Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ°>ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° integer
Program1.pas(30) : ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° integer
var n, m, x, y, a, i:integer; begin readln(n,m); for i:=1 to n do a:=i; for i:=1 to.
Π ΠΎΠ±ΡΠ΅ΠΌ Π΄ΠΎΡΠ΅Π» Π΄ΠΎ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ ΠΈ ΡΠ΅ΡΠΈΠ» ΠΏΠΎΠΏΡΠ°ΠΊΡΠΈΠΊΠΎΠ²Π°ΡΡΡΡ Π² Π½ΠΈΡ
, Π½Π°ΠΏΠΈΡΠ°Π² ΠΏΡΠΎΡΡΡΡ.
Program Massivi; uses crt; Type Digit=array of integer; Matrix=array of byte; var i,j,s,k,c.
ΠΡΡ ΠΏΠ»Π΅ΡΡ Π²ΡΠ΅Π»Π° ΡΡΡΡΠΎΠ²Π° Π·Π°Π΄Π°ΡΠ°. ΠΠ΅Π½Ρ Π΄ΡΠΌΠ°Π» Π½Π°Π΄ ΡΠ΅ΠΌ ΠΊΠ°ΠΊ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ, Π΄Π΅Π½Ρ ΠΏΠΈΡΠ°Π» ΠΈ ΠΏΠ΅ΡΠ΅ΠΏΠΈΡΡΠ²Π°Π» Ρ.Π Π΅ΡΠ΅Π½ΠΈΠ΅
Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΠΎΡΠΈΠ±ΠΊΡ ‘Π½Π΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° integer’ ΠΏΠΎΠ΄ΡΠΊΠ°ΠΆΠΈΡΠ΅ Π³Π΄Π΅ ΠΌΠΎΡ ΠΎΡΠΈΠ±ΠΊΠ°.
ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° real. ΠΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΠΈΠΏΠ° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
Π½Π΅ ΠΏΡΠΈΠ½Π΅ΡΠ»ΠΎ ΡΡΠΏΠ΅Ρ
ΠΎΠ².
uses graphABC; type point = record x, y: integer; end; var doodler, background.
ΠΡΠΈΠ±ΠΊΠ° Π² ΡΡΡΠΎΠΊΠ΅ 42, ΠΏΠΎΠΌΠΎΠ³ΠΈΡΠ΅ ΠΈΡΠΏΡΠ°Π²ΠΈΡΡ. ΠΠ° ΡΠ°Π½Π΅Π΅ ΡΠΏΠ°ΡΠΈΠ±ΠΎ program test; const s0 =.
program kajdiuvtoroi; var a, b : string; begin writeln(‘Π²Π²Π΅Π΄ΠΈΡΠ΅ ΡΡΡΠΎΠΊΡ:’); readln (a); b :=.ΠΡΠΈΠ±ΠΊΠ° «Π½Π΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° integer»
ΠΏΠΎΠ΄ΡΠΊΠ°ΠΆΠΈΡΠ΅ Π³Π΄Π΅ ΠΌΠΎΡ ΠΎΡΠΈΠ±ΠΊΠ°.
Π½ΡΠΆΠ½ΠΎ Π²ΡΠ²Π΅ΡΡΠΈ ΠΈΠ· ΡΡΡΠΎΠΊΠΈ Π²ΡΠ΅ ΠΏΠ΅ΡΠ²ΡΠ΅ Π±ΡΠΊΠ²Ρ Π² ΠΏΠΎΡΡΠ΄ΠΊΠ΅ ΡΠ±ΡΠ²Π°Π½ΠΈΡ ΡΠ°ΡΡΠΎΡΡ ΠΈΡ
ΡΠΏΠΎΡΡΠ΅Π±Π»Π΅Π½ΠΈΡ.
ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° real. ΠΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΠΈΠΏΠ° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
Π½Π΅ ΠΏΡΠΈΠ½Π΅ΡΠ»ΠΎ ΡΡΠΏΠ΅Ρ
ΠΎΠ².
ΠΡΠΈΠ±ΠΊΠ° Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ var a: string; b: char; i,j,k,i1: integer; begin writeln (‘ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠ΅ΠΊΡΡ.
uses crt < uses ΡΠΏΠΈΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΌΡΡ
ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ,Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ°>
var n, m, x, y, a, i:integer; begin readln(n,m); for i:=1 to n do a:=i; for i:=1 to.
Program Massivi; uses crt; Type Digit=array of integer; Matrix=array of byte; var i,j,s,k,c.
Π ΠΎΠ±ΡΠ΅ΠΌ Π΄ΠΎΡΠ΅Π» Π΄ΠΎ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ ΠΈ ΡΠ΅ΡΠΈΠ» ΠΏΠΎΠΏΡΠ°ΠΊΡΠΈΠΊΠΎΠ²Π°ΡΡΡΡ Π² Π½ΠΈΡ
, Π½Π°ΠΏΠΈΡΠ°Π² ΠΏΡΠΎΡΡΡΡ.ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΡΠΈΠΏΠ° real

uses graphABC; type point = record x, y: integer; end; var doodler, background.
ΠΡΠΈ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΠΎΡΠΈΠ±ΠΊΡ Π² 144 ΡΡΡΠΎΠΊΠ΅ : ΠΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ.
Π ΠΎΠ±ΡΠ΅ΠΌ Π΄ΠΎΡΠ΅Π» Π΄ΠΎ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ ΠΈ ΡΠ΅ΡΠΈΠ» ΠΏΠΎΠΏΡΠ°ΠΊΡΠΈΠΊΠΎΠ²Π°ΡΡΡΡ Π² Π½ΠΈΡ
, Π½Π°ΠΏΠΈΡΠ°Π² ΠΏΡΠΎΡΡΡΡ.
Π ΡΡΠ΄Ρ ΠΏΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡ, Π°Π»Π³ΠΎΡΠΈΡΠΌ Π²ΡΠ±ΡΠ°Π½ Π½Π΅Π²Π΅ΡΠ½ΡΠΉ.
ΠΠΎΠΆΠ½ΠΎ ΠΏΠΎΠΏΡΠΎΠ±ΠΎΠ²Π°ΡΡ ΠΈΡΠΊΠ°ΡΡ x[p] Π² ΠΌΠ°ΡΡΠΈΠ²Π°Ρ
y ΠΈ z, ΡΠΎΡ
ΡΠ°Π½ΡΡ ΠΈΠ½Π΄Π΅ΠΊΡΡ ΠΌΠ΅ΠΆΠ΄Ρ ΠΈΡΠ΅ΡΠ°ΡΠΈΡΠΌΠΈ, ΡΡΠΎ-ΡΠΎ Π²ΡΠΎΠ΄Π΅:
ΠΡΠΈΠ±ΠΊΠ° Π² ΡΡΡΠΎΠΊΠ΅ 42, ΠΏΠΎΠΌΠΎΠ³ΠΈΡΠ΅ ΠΈΡΠΏΡΠ°Π²ΠΈΡΡ. ΠΠ° ΡΠ°Π½Π΅Π΅ ΡΠΏΠ°ΡΠΈΠ±ΠΎ program test; const s0 =.
Program Massivi; uses crt; Type Digit=array of integer; Matrix=array of byte; var i,j,s,k,c.
var n, m, x, y, a, i:integer; begin readln(n,m); for i:=1 to n do a:=i; for i:=1 to.
program kajdiuvtoroi; var a, b : string; begin writeln(‘Π²Π²Π΅Π΄ΠΈΡΠ΅ ΡΡΡΠΎΠΊΡ:’); readln (a); b :=.ΠΠ½Π΄Π΅ΠΊΡΠ½ΡΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²Π°
procedure SetProp( ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΈΠ½Π΄Π΅ΠΊΡΠΎΠ² ; value: ΡΠΈΠΏ );
const
n = 8;
sz = 50;
type
ChessBoard = class
private
a: array [,] of boolean := new boolean[n,n];
procedure setCell(x,y: integer; value: boolean);
begin
if value then
Brush.Color := Colors.White
else Brush.Color := Colors.Gray;
FillRectangle((x-1)*sz+1,(y-1)*sz+1,sz,sz);
a[x-1,y-1] := value;
end;
function getCell(x,y: integer) := a[x-1,y-1];
public
property Cells[x,y: integer]: boolean read getCell write setCell; default;
end;
for var x:=1 to n do
for var y:=1 to n do
c[x,y] := Odd(x+y);
end.