12 var 3 s : string; 4 begin 5 readln (s ); 6 while pos ( 'с' ,s )> 0 do delete (s ,pos ( 'с' ,s ) ,1 ); 7 writeln (s ); 8 end. не уверена,но по-моему так
Ответ дал: Гость
в секунду передается 512кбит=512/8кбайт=64кбайт
за четыре минуты передалось 4*60*64=15360кбайт
в одном мбайте 1024 кбайт ⇒15360кбайт=15360/1024мбайт=15мегабайт
ответ: 15 мегабайт
Ответ дал: Гость
чтение из файла обычно пишется 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)
Ответ дал: Гость
program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do begin y: =x*h; writeln('цена за ',h*1000,' грамм ',y,' руб'); h: =h+0.1 end; end.
Популярные вопросы