Презентація "Розв'язування олімпіадних задач з інформатики(ІІ етап) на мові Pascal "

Розв'язування олімпіадних задач з інформатики (ІІ етап) на мові Pascal. Швець І. М.вчитель інформатики. Кирнасівської ЗШ І-ІІІ ступенів

Якщо i = j, очевидно, ми не можемо визначити з якого боку нумеруються вагони потягу, тому відповідь -1. Якщо i ≠ j, очевидно, нумерація вагонів відбувається з кінця, тому у поїзді всього i вагонів від того, де сидить пасажир, до голови, та j - 1 вагон з кінця (не враховуючи вагон, де сидить пасажир). Тому відповідь i + j - 1.

Program Train; Var i,j,rez:integer;Begin Read(i,j); if i=j then rez:=-1 else rez:=i+j-1; Write(rez);End.

 × × ×× ××     ×× ×× × ×      ××    ×   ××              ×××  × ×  ×××      358

Var A, x, y, n: integer; begin Readln (A, x, y); n:=8; if ((x=A) and (y=A)) or ((x=A) and (y=1)) or ((x=1) and (y=A)) or ((x=1) and (y=1)) then n:=n-5 else if (x=A) or (y=A) or (x=1) or (y=1) then n:=n-3; Writeln (n); end.

Var M: array [1..1000] of byte; N, i, a, b, c: integer; begin Read (N); For i:=1 to N do Read (M[i]); a:=0; b:=0; c:=0; For i:=2 to N do begin if (M[i]=0) and (M[i-1]=0) then a:=a+1 else if (M[i]=1) and (M[i-1]=1) then b:=b+1 else c:=c+1; end; if (a>b) and (a>c) then Writeln ('1 ', a) else if (b>a) and (b>c) then Writeln ('2 ', b) else if (c>a) and (c>b) then Writeln ('3 ', c) else if (a=b) and (a=c) then Writeln ('1 2 3 ', a) else if a=b then Writeln ('1 2 ', a) else if a=c then Writeln ('1 3 ', a) else Writeln ('2 3 ', b); end.

program border;var mass:array[0..1002] of integer; a,b,c,temp,max,n,i,l:integer; rez:integer;begin. Read(n); max:=0;For l:=1 to n do begin Readln(a,b,c); If a>b then begin temp:=a; a:=b; b:=temp; end; If b>max then max:=b; For i:=a+1 to b do If mass[i]0 then rez:=rez+1; end;Writeln(rez);end.