if a[i] mod 8 = 0 then begin s: =s+a[i]; k: =1 end;
if k=0 then write ('элементов кратных 8 - нет')
else write('сумма элементов кратных 8 =', s);
readln
end.
Ответ дал: Гость
думаю так1) налить в кувшин 3 л, перелить в емкость,где будет 7 л
2) еще раз налить туда 3 л
3) налить 3 л воды налить в кувшин для 8 л, потом еще раз для 8 литров и еще раз(3 раза) на третьем разе останется 1 л,этот л и доливаем в кувшин с 7 л
Популярные вопросы