Макс ! семиклассник иван пришёл из школы домой и решил скачать с сети интернет две обучающие программы. он посмотрел размеры программ : первая была объёмом 100 кбайт, а вторая 100 байт. иван решил сначала скачать первую программу , а затем сразу же вторую программу. в процессе скачивания , когда уже скачалась первая программа и половина второй программы , произошёл сбой , и пришлось вторую программу скачивать сначала. сколько секунд потратил иван на то, чтобы скачать обе программы , если скорость приёма данных на его компьютере была 350 бит/сек , а сбой не отнял ни одной лишней секунды?

ответ:

429 миллисекунд

объяснение:

переведём в кбайты

100*1000=1

посчитаем сколько всего нам нужно скачать:

1+100+5(половина от 2 программы)=150100 кбайт

переведём в байты:

150100*0.001=150.1

занятое время:

~0.429 = 429 миллисекунд.

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('ясь',s,7);

writeln (s);

readln;

end.

3

а)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete (s,6,5); {удаляем включая пробел}

writeln (s);

readln;

end.

б)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete(s,13,6);

s: =s+'озера';

writeln (s);

readln;

end.

попробуйте так (turbo pascal):

program 1;

var s: string;

c: integer;

begin

write('vvedite nazvaniye zhivotnogo');

read(s);

writeln('vvedite kolichestvo syedennyh gribov');

readln(c);

writeln(s, ' ', 'syest', ' ', c, ' ', 'gribov');

end.