Вдоме живут 7 коротышек: незнайка, знайка, пончик, цветик, винтик, шпунтик и пилюлькин. каждое утро они жребий, кому готовить завтрак. сколько бит содержит сообщение "завтрак готовит незнайка"?
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016 const k=4; //количество классов u=18; // количество учеников в классе var a:array[1..k,1..u] of real; // массив с ростом n:array[1..k] of integer; // массив результатов i,j:integer; // счетчики циклов m:real; // средний рост ученика в классе begin for i:=1 to k do begin Writeln('Введите рост учеников ',i,'-го из классов'); m:=0; for j:=1 to u do begin Read(a[i,j]); m:=m+a[i,j] end; m:=m/u; n[i]:=0; for j:=1 to u do if abs(a[i,j]-m)>5.0 then Inc(n[i]); end; Writeln('Количество учеников с ростом, отличающимся от среднего'); Writeln('по каждому из классов более, чем на 5'); for i:=1 to k do Write(n[i]:5) end.
Пример решения для упрощенного случая, когда в классе на 18, а 5 учеников (чтобы меньше набирать) Введите рост учеников 1-го из классов 168 174 181 172 175 Введите рост учеников 2-го из классов 162 173 170 158 183 Введите рост учеников 3-го из классов 157 185 159 168 167 Введите рост учеников 4-го из классов 170 173 176 168 171 Количество учеников с ростом, отличающимся от среднего по каждому из классов более, чем на 5 2 3 3 0
Var a:array[1..3,1..3] of integer; t:array[0..2] of boolean; k:array[0..2] of integer; i,j:integer; res:boolean;
begin for i := 1 to 3 do for j := 1 to 3 do read(a[i,j]); for i := 0 to 2 do begin k[i] := 0; t[i] := false; end;
for i := 1 to 3 do for j := 1 to 3 do k[a[i,j]] := k[a[i,j]] + 1;
for i := 1 to 3 do begin if (a[i,1] = a[i,2]) and (a[i,2] = a[i,3]) then t[a[i,1]] := true; if (a[1,i] = a[2,i]) and (a[2,i] = a[3,i]) then t[a[1,i]] := true; end; if (a[1,1] = a[2,2]) and (a[2,2] = a[3,3]) then t[a[2,2]] := true; if (a[3,1] = a[2,2]) and (a[2,2] = a[1,3]) then t[a[2,2]] := true;
res := true;
if (k[1] - k[2] > 1) or (k[1] - k[2] < 0) then res := false;
if t[1] and ( t[2] or (k[1] = k[2]) ) then res := false;
if res then writeln('YES') else writeln('NO') end.
