Составить программу в озеро, имеющее среднюю глубину l м и площадь поверхности s кв.км, бросили кристалл поваренной соли массой 0, 05г. сколько граммов соли оказалось бы в напёрстке воды обьёмом 2 см3, зачёрпнутой из озера. если полагать, что соль растворилась равномерно во всём обьёме вода?

Var l,s,x: real; begin writeln('введите площадь и глубину озера: '); read(s,l); x: =0.0000001/(s*l); writeln('соли в наперстке объемом 2см^3: ',x,' г'); end.

Var   a, b, c, d, e, n: integer; begin   n : = 0;   for a : = 1 to 9 do       for b : = 0 to 9 do           for c : = 1 to 9 do               for d : = 0 to 9 do                   for e : = 0 to 9 do                       if (10 * a + b) * c = (10 * d + e) then n : = n + 1;   writeln(n) end. тестовое решение: 196

Три символа алфавита могут быть закодированы в системе счисления по основанию 3, т.е. в троичной системе счисления. при этом под первым номером кодируется число 0, которое записано по условию как fffff, т.е. символ f кодируется нулем. вторым номером кодируется число 1 и его запись по условию ffffn, откуда мы узнаем, что символ n кодируется цифрой 1. тогда оставшийся символ s кодируется цифрой 2. и действительно, третьей идет комбинация символов ffffs. любой член в последовательности кодов может быть получен путем перевода в троичную систему числа, на единицу меньшего номеру этого члена (поскольку отсчет кодов идет с нуля, а члены последовательности нумеруются с единицы). проверим наше построение для контрольного значения n99=nfnss. 98(3)=10122 -> nfnss, что соответствует условию. теперь само решение. 7) 6(3)=00020 -> fffsf 27) 26(3)=00222 -> ffsss 90) 89(3)=10022 -> nffss 101) 100(3)=10201 -> nfsfn 196) 195(3)=21020 -> snfsf