Var A,B,C,k:integer; Begin Write('A = ');ReadLn(A); Write('B = ');ReadLn(B); Write('C = ');ReadLn(C); Write('k = ');ReadLn(k); if k=1 then Begin if a < b then a:=b; Write('p = ',a) End else if k=2 then Begin if a < b then a:=b; if a < c then a:=c; Write('p = ',a); End; End.
Отношение R на множестве Х называется рефлексивным, если о каждом элементе множества Х можно сказать, что он находится в отношении R с самим собой: хRх. Если отношение рефлексивно, то в каждой вершине графа имеется петля. И обратно, граф, каждая вершина которого содержит петлю, представляет собой граф рефлексивного отношения. Примерами рефлексивных отношений являются и отношение «кратно» на множестве натуральных чисел (каждое число кратно самому себе), и отношение подобия треугольников (каждый треугольник подобен самому себе), и отношение «равенства» (каждое число равно самому себе) и др. Существуют отношения, не обладающие свойством рефлексивности, например, отношение перпендикулярности отрезков: ab, ba (нет ни одного отрезка, о котором можно сказать, что он перпендикулярен самому себе). Поэтому на графе данного отношения нет ни одной петли. Не обладает свойством рефлексивности и отношение «длиннее» для отрезков, «больше на 2» для натуральных чисел и др.
1) var a: array [0..9] of integer; i: integer; begin for i := 0 to 9 do a[i] := random(25); end.
2) var a: array [0..9] of integer; i, m: integer; begin for i := 0 to 9 do begin readln(a[i]); if (a[i] mod 2 = 0) then m := m + a[i]; end; writeln(m / 10); end.
3) var a: array [0..9] of integer; i, m: integer; begin for i := 0 to 9 do begin a[i] := random(50); writeln('[', i, '] => ', a[i]); if ((a[i] mod 2 = 1) and (i mod 2 = 0)) then a[i] := a[i] * 2; end; writeln(''); for i := 0 to 9 do writeln('[', i, '] => ', a[i]); end.
4) var a: array [0..9] of integer; i, m: integer; begin a[0] := 2; a[1] := 3; a[2] := 5; a[3] := 7; a[4] := 11; a[5] := 13; a[6] := 17; a[7] := 19; a[8] := 23; a[9] := 29; for i := 0 to 9 do writeln('[', i, '] => ', a[i]); end.
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
Write('k = ');ReadLn(k);
if k=1 then
Begin
if a < b then a:=b;
Write('p = ',a)
End
else
if k=2 then
Begin
if a < b then a:=b;
if a < c then a:=c;
Write('p = ',a);
End;
End.