using System;
namespace ConsoleApp1
{
class Program
{
static void Main(string[] args)
{
int first = int.Parse(Console.ReadLine());
int second = int.Parse(Console.ReadLine());
if (first == second)
first = second = 0;
else if (first > second)
second = first;
else first = second;
Console.WriteLine("{0} {1}",first,second);
}
}
}
Var a:array[1..5,1..7] of integer;
i,j,kolpol,kolotr:integer;
respol,resotr:real;
begin
for j:=1 to 7 do begin
for i:=1 to 5 do begin
a[i,j]:=random(-50,50);
write(a[i,j]:4);
end;
writeln();
end;
for i:=1 to 5 do begin
respol:=0;
resotr:=0;
kolpol:=0;
kolotr:=0;
for j:=1 to 7 do begin
if a[i,j]>0 then begin
respol+=a[i,j];
kolpol+=1;
end
else if a[i,j]<0 then begin
resotr+=a[i,j];
kolotr+=1;
end;
end;
writeln('Среднее значение положительных чисел в ',i,' столбце=', respol/kolpol);
writeln('Среднее значение отрицательных чисел в ',i,' столбце=', resotr/kolotr);
end;
end.
За 1 взвешивание делим 2017монет на 2 и что легче или тяжелее другово
Диапазон -8..14 содержит в себе нуль, т.е. самый простой вариант ответа: Произведение этих чисел равно нулю.
Но если не рассматривать нуль в качестве множителя, то ответ: 3515028701184000
Var p : BigInteger;
i : Integer;
Begin
p:=1;
For i:=-8 to 14 do If i<>0 then p:=p*i;
Writeln(p);
end.