с информатикой.

Дана программа. Определить результат выполнения.

program N02;
const A: array [1..10] of integer=( 1,36,2,18,3,12,4,9,6,6);
var i, k: integer;
begin
k:=0;
for i:=1 to 7 do;
if A[i] write(k)
end.

вместо х ставишь 2,значит у=2-1,у=1,х=у-2,2=4-2,у=х-у,у=2-у,тут у-любое,кроме 2 и более

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.

24576/8=3072 символа

ответ: 3072 символа

за два можно. ложим по 3 монеты. если ровно - то фальшивая среди двух оставшихся, которую легко найти. если неровно - то берём 2 монеты из лёгкой чашки и взвешиваем. если ровно - то оставшаяся и есть фальшивая, если неровно - то фальшивая наверху.