Вопрос по информатике:
Помогите пожалуйста :(((
Даны шесть монет, из которых одна фальшивая. Фальшивая монета отличается от настоящей монеты весом, причем она либо немного тяжелее, либо немного легче. Имея рычажные весы, определить ложную монету не более чем за три взвешивания.
Это в паскале надо)
Пожалуйста!!!!))))
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 16.04.2015 00:08
- Информатика
- remove_red_eye 14110
- thumb_up 33
Ответы и объяснения 1
Var
a, 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.
- 16.04.2015 03:24
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.