(-(y+z)*x)*-(y+z)=F
X Y Z Y+Z 1.-(Y+Z) 1.*X. 1.*(1.*X)
0 0 0. 0. 1. 0. 0
0 0 1. 1. 0. 0. 0
0 1 0. 1. 0. 0. 0
0 1 1. 1. 0. 0. 0
1 0 0. 0. 1. 1. 1. - Ответ
1 0 1. 1. 0. 0. 0
1 1 0. 1. 0. 0. 0
1 1 1. 1. 0. 0. 0
ответ х1 у0 z0
Var
A,B:integer;
Begin
Write('Введите два числа: ');ReadLn(A,B);
if A<B then Write(A)
else Write(B)
End.
Const
maxn = 15;
type
myarr = array [1..maxn] of longint;
var
a: myarr;
k1, k2, k3, sr, i: longint;
begin
for i := 1 to 15 do begin
read(a[i]);
sr := sr + a[i];
end;
sr := sr div 15;
for i := 1 to 15 do begin
if (a[i] > sr) then
inc(k1);
if (a[i] = sr) then
inc(k2);
if (a[i] < sr) then
inc(k3);
end;
writeln('Количество элементов, больших среднего арифметического, = ', k1);
writeln('Количество элементов, равного среднему арифметическому, = ', k2);
writeln('Количество элементов, меньших среднего арифметического, = ', k3);
end.
0,256 мегабайто=256000 байтов.
Задача сделана на языке паскаль, при помощи
PaskalPlus<span>
Оформление сделана как для студенческой задачи
Если есть вопросы пиши в личку</span>