За 1 взвешивание делим 2017монет на 2 и что легче или тяжелее другово
Program one;
var x, y: real;
begin write('Введите число x: '); read(x); y := x * 1 * x * 2 + x * 1 * x * 3 + x * 2 * x * 3; write('Ответ: ', y);end.
Program p1;
var sum,i,m:integer;
begin
writeln('Введите m: ');
readln(m);
sum:=0;
while i<m do
begin
i:=i+1;
sum:=sum+i;
end;
writeln('Сумма натуральных чисел =',sum);
end.<span>
</span>
(6*1024*8)/6144=8 бит - 1 символ
N=2^8=256 символов