Склади і запиши у вигляді блок-схеми алгоритм для такої і: у їжачка було 5 грибів. він знайшов іще 6 грибів. прилетіла сорока й відібрала у нього 7 грибів. білочка іла їжачка і подарувала йому 10 грибочків. скільки у їжачка стало грибів?

дуже просто 5+6-7+10=14 грибів . а блок схема :

малюєш овал в ньому пиши початок, далі прямокутник, а в ньому 5, далі знов прямок, а вньому +6 і т.д

If wscript.arguments.count < 2 then wscript.echo "error! please specify the source path and the destination. usage: xlstocsv sourcepath.xls destination.csv" wscript.quitend ifdim oexcelset oexcel = createobject("excel.application")dim obookset obook =
oexcel.workbooks.open(wscript.arguments.item(0))obook.saveas wscript.arguments.item(1), 6obook.close falseoexcel.quitwscript.echo "done"xlstocsv.vbs [sourcexlsfile].xls [destinationcsvfile].csvif wscript.arguments.count < 2 then wscript.echo "please specify the source and the destination files.
usage: exceltocsv " wscript.quitend ifcsv_format = 6set objfso = createobject("scripting.filesystemobject")src_file = objfso.getabsolutepathname(wscript.arguments.item(0))dest_file = objfso.getabsolutepathname(wscript.arguments.item(1))dim oexcelset oexcel = createobject("excel.application")dim
obookset obook = oexcel.workbooks.open(src_file)obook.saveas dest_file, csv_formatobook.close falseoexcel.quitfor /f "delims=" %%i in ('dir *.xlsx /b') do exceltocsv.vbs "%%i" "%%i.csv"if wscript.arguments.count < 3 then wscript.echo "please specify the sheet, the source, the destination files.
usage: exceltocsv " wscript.quitend ifcsv_format = 6set objfso = createobject("scripting.filesystemobject")src_file = objfso.getabsolutepathname(wscript.arguments.item(1))dest_file = objfso.getabsolutepathname(wscript.arguments.item(2))dim oexcelset oexcel = createobject("excel.application")dim
obookset obook = oexcel.workbooks.open(src_file)obook.sheets(wscript.arguments.item(obook.saveas dest_file, csv_formatobook.close falseoexcel.quit

Var n,sum,d,ind,first: integer; begin   write('n');   readln(n);   d: =1;   ind: =0;   sum: =0;   if   n div d=0 then    begin    ind: =1;   sum: =n;   end    else begin    while n div d< > 0 do    begin    inc(ind);     sum: =sum+(n div d) mod 10;     d: =d*10;     end;     end;     writeln('suma',sum);     writeln('kolvo',ind);     first: =(n div round(d/10)) mod 10;   writeln('first',first);     readln; end.