тогда время передачи будет равно t= 100/12800 = 0,0078125 секунд
Ответ дал: Гость
чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить
readln(input,s); s: =s+' '; f: =0; for i: = 1 to length(s) do beginif s[i]< > ' ' then r: =r+s[i]; if s[i]=' ' then begin k: =k+1; d[k]: =r; r: =''; end; end; readln(input,n); for i: = 1 to n do beginreadln(input,sait[i]); readln(input,tegs[i]); readln(input,pop[i]);
соответственно и запись в файл write(f,s)
Ответ дал: Гость
microsoft visual basic 2010(более ранние тоже прокатят)
dim i as single private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load i = val(inputbox("введите число")) if i > = 0 then i = i - 50 else i = i + 100 end if msgbox(i) end sub
просто на basic
dim i as single
input(i)
if i > = 0 then i = i - 50 else i = i + 100 end if
Популярные вопросы