Помогите пожалуйста :(((
Даны шесть монет, из которых одна фальшивая. Фальшивая монета отличается от настоящей монеты весом, причем она либо немного тяжелее, либо немного легче. Имея рычажные весы, определить ложную монету не более чем за три взвешивания.
Это в паскале надо)
Пожалуйста!!!!))))
Даны шесть монет, из которых одна фальшивая. Фальшивая монета отличается от настоящей монеты весом, причем она либо немного тяжелее, либо немного легче. Имея рычажные весы, определить ложную монету не более чем за три взвешивания.
Это в паскале надо)
Пожалуйста!!!!))))
More Questions From This User See All
Answers & Comments
Verified answer
Vara, real_coin: array[1..6] of integer;
forged_coin, i: integer;
begin
for i := 1 to 6 do
a[i] := 10;
forged_coin := random(6);
a[forged_coin] := random(4) + 8;
writeln(forged_coin);
for i := 1 to 6 do
write(a[i], ' ');
writeln;
forged_coin := 0;
if a[1] + a[2] = a[3] + a[4] then begin
real_coin[1] := a[1];
real_coin[2] := a[2];
if real_coin[1] = a[5] then
forged_coin := 6
else forged_coin := 5;
end
else begin
real_coin[1] := a[5];
real_coin[2] := a[6];
if a[1] + a[2] = real_coin[1] + real_coin[2] then begin
real_coin[3] := a[1];
real_coin[4] := a[2];
if real_coin[1] = a[3] then
forged_coin := 4
else forged_coin := 3;
end
else begin
real_coin[3] := a[3];
real_coin[4] := a[4];
if real_coin[1] = a[1] then
forged_coin := 2
else forged_coin := 1;
end;
end;
writeln(forged_coin);
end.