Ответьте на вопросы: устройство вывода информации? устройство хранения программ и данных? устройство ввода , используемое во времч игры? другое название жёсткоао диска? устройство с которого можно вывести на бумагу тексты и рисунки?

Вывод - монитор хранение - жёсткий диск (hdd), твердотельный накопитель (sdd) ввод для игры - джойстик (каноничный пример просто, а так-то и мышку можно было) винчестер принтер

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

Код pascal1 2 3 4 5 6 7 8 9 10 11 12 begin   var size : = readlninteger('размер массива =');   var a : array of integer; setlength(a, size);   for var i : = 0 to pred(size) do     a[i] : = readlninteger('a[' + (i+1).tostring + '] =');   writeln('введён массив a = ', a);   var count : = 0; for var i : = 0 to pred(size) do if not odd(a[i]) then count += 1;   writeln('в массиве чётных элементов: ', count);   var max : = 0; for var i : = 1 to pred(size) do if a[max] < a[i] then max : = i;   var k : = readlninteger('k = '); a[max] *= k;   writeln('массив a = ', a); end.