Формулаға сәйкес, екеуден 8-ші дәрежеге дейін көтеріңіз және әліпбидегі 256 әріптерді алыңыз
Если, что извините пользовалась переводчиком))
<h3>в первом задании выйдет квадрат на две клетки.во втором задании 1-2,2-3,3-1.надеюсь понятно</h3>
Var a,b,c,sum:integer;
begin
readln(a,b);
sum:=0; inc(a); c:=0;
repeat
sum:=sum+b;
inc(c);
until c=a;
sum:=sum-b;
writeln(sum);
end.
6 пакетов на одну чашу, 6 на другую, пакеты, вес которых меньше, делим по 3 шт., снова взвешиваем, берем любые 2 из тех, вес которых меньше, взвешиваем. Если вес одного из них меньше, то это он и есть. Если вес одинаковый, то с меньшим весом пакет, который не на весах.