Var a,b: integer; begin write('введите два числа: '); readln(a,b); a: =a+b; if a mod 5 = 0 then a: =a+1 else a: =a-2; writeln(a); end. введите два числа: 17 13 31
Спасибо
Ответ дал: Гость
если по обем чашечкам разложить сначала по одной детали так, чтобы они уравновесились .предположим, что деталь весит больше чем три остальные. на чашечки положить еще по одной детали, и одна чашечка перевесит другую.та верхняя деталь, что была на чашечке которую перевесили и есть необходимая. если же деталь весит больше чем все остальные, то все сделать наоборот.
Популярные вопросы