var a: array[1..10, 1..10] of integer; i, j, s: integer;
begin s : = 0; for i : = 1 to 10 do begin for j : = 1 to 10 do begin a[i, j] : = random(20) + 1; write(a[i, j]: 3); if (j = 2) and (a[i, j] > 10) then s : = s + a[i, j]; end; writeln; end; writeln('сумма элементов 2го столбца больших 10 равна', s); end.
Ответ дал: Гость
var s,i,n,m : longint;
begin
readln(m,n);
if m> n then
begin
s: =m;
m: =n;
n: =s
end;
s: =0;
for i: = m to n do if i mod 12=0 then s: =s+i;
writeln(s);
end.
Ответ дал: Гость
гляди
26 разделим по 3 кучки
получим 9 9 8
если взвесим 9 и 9 и какойто будет легче, то тот разбиваем еще на 3 кучки, т.е. уже
3 3 3,взвешиваем если оба одинаковы,то берем третий,если какой то из них меньше то берем его и расскладываем еще на 3 кучки,получаем 1 1 1,отсюда если два камня равны то они искусствены и берем третий,если нет,то берем меньший по весу.
теперь если 9 и 9 одинаковы
разложем 8 на 3 кучи
получаем 3 3 2
3 3 уже рассматривали,возьмем 2 разложим на 1 1 и один из них будет меньше по весу! в итоге 3 взвешивания!
Популярные вопросы