Sos sos написать алгоритм "как сварить борщ" например: достать кастрюлю и т.

1.  вымыть, очистить и нарезать тонкой соломкой свеклу, морковь, картофель и лук. капусту тонко нашинковать, помидоры ошпарить кипятком, снять кожуру и нарезать кубиками. чеснок очистить и раздавить.2.   в кастрюле вскипятить воду, посолить, положить картофель и капусту и варить  на небольшом огне. в сковороде разогреть растительное масло, обжарить лук и морковь около 5 минут, затем добавить половину свеклы, уксус и сахар, перемешать и тушить 10 минут. 3.  оставшуюся свеклу сложить в миску, залить кипятком, добавить 1 ч. л. уксуса и дать настояться – получившийся свекольный сок может понадобится в конце приготовления для того, чтобы сделать цвет борща более насыщенным. 4.  в сковороду с овощами добавить помидоры, посолить и поперчить по вкусу, накрыть крышкой и тушить 20 минут. 5.  в кастрюлю с картофелем и капустой добавить тушеные овощи и лавровый лист. довести до кипения, снять пену, потом добавить в борщ чеснок. накрыть  крышкой и сразу снять с огня, после чего дать настояться 10 мин. 6.  добавить в суп процеженный свекольный сок и перемешать.

используем рекурентную формулу, чтобы программу

а[n+1]=1/4

a[n]=1/2

t=(1/4)/(1/2)=1/2

a[n+1]=a[n]*1/2

program;

var  n: integer; abs,s,a: real;

begin

a: =1;

eps: =1;

s: =1;

repeat

a: =a*1/2;

abs: =abs(a);

s: =s+a;

until abs< 0.001;

writeln(s);

end;

var r,l,s: real; beginwrite('r='); read(r); s: =pi*sqr(r); l: =2*pi*r; write('s=',s,'; l=',l); end.

 

var a,p: integer; beginread(a); p: =(a mod 10)*(a div 100)*(a mod 100 div 10); write(p); end.

 

var a,b,c,min: integer; beginwriteln('введи 3 числа'); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln(3*min: 4); readln; end.