1. Вымыть, очистить и нарезать тонкой соломкой свеклу, морковь, картофель и лук. Капусту тонко нашинковать, помидоры ошпарить кипятком, снять кожуру и нарезать кубиками. Чеснок очистить и раздавить. 2. В кастрюле вскипятить воду, посолить, положить картофель и капусту и варить на небольшом огне. В сковороде разогреть растительное масло, обжарить лук и морковь около 5 минут, затем добавить половину свеклы, уксус и сахар, перемешать и тушить 10 минут. 3. Оставшуюся свеклу сложить в миску, залить кипятком, добавить 1 ч. л. уксуса и дать настояться – получившийся свекольный сок может понадобится в конце приготовления для того, чтобы сделать цвет борща более насыщенным.4. В сковороду с овощами добавить помидоры, посолить и поперчить по вкусу, накрыть крышкой и тушить 20 минут.5. В кастрюлю с картофелем и капустой добавить тушеные овощи и лавровый лист. Довести до кипения, снять пену, потом добавить в борщ чеснок. Накрыть крышкой и сразу снять с огня, после чего дать настояться 10 мин.6. Добавить в суп процеженный свекольный сок и перемешать.
Вот программа : program xxx; <p>program xxx;</p><p> var i, k, d, e, s : integer;</p><p>begin</p><p> k:=0;</p><p> for i:= 10 to 99 do</p><p> begin</p><p> d:= i div 10;</p><p> e:= i mod 10;</p><p> s:=d + e;</p><p> if i mod s = 0 then k:=k+1</p><p> end;</p><p> write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p> readln</p><p>end.</p>
2. В кастрюле вскипятить воду, посолить, положить картофель и капусту и варить на небольшом огне. В сковороде разогреть растительное масло, обжарить лук и морковь около 5 минут, затем добавить половину свеклы, уксус и сахар, перемешать и тушить 10 минут.
3. Оставшуюся свеклу сложить в миску, залить кипятком, добавить 1 ч. л. уксуса и дать настояться – получившийся свекольный сок может понадобится в конце приготовления для того, чтобы сделать цвет борща более насыщенным.4. В сковороду с овощами добавить помидоры, посолить и поперчить по вкусу, накрыть крышкой и тушить 20 минут.5. В кастрюлю с картофелем и капустой добавить тушеные овощи и лавровый лист. Довести до кипения, снять пену, потом добавить в борщ чеснок. Накрыть крышкой и сразу снять с огня, после чего дать настояться 10 мин.6. Добавить в суп процеженный свекольный сок и перемешать.
<p>program xxx;</p><p> var i, k, d, e, s : integer;</p><p>begin</p><p> k:=0;</p><p> for i:= 10 to 99 do</p><p> begin</p><p> d:= i div 10;</p><p> e:= i mod 10;</p><p> s:=d + e;</p><p> if i mod s = 0 then k:=k+1</p><p> end;</p><p> write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p> readln</p><p>end.</p>