Var s: string;
<span> n,k: integer;
</span><span>begin
</span><span> write('строка: '); readln(s);
</span><span> n:=pos(' ',s);
</span><span> if n>0 then
</span><span> begin
</span><span> writeln('первая буква второго слова: ',s[n+1]);
</span><span> writeln('последняя буква: ',s[length(s)]);
</span><span> writeln('количество букв: ',length(s)-n);
</span><span> k:=0;
</span><span> for n:=1 to length(s) do
</span><span> if s[n]='a' then k:=k+1;
</span><span> if k>0 then writeln('количество букв a: ',k)
</span><span> else writeln('в строке нет буквы a');
</span><span> end
</span><span> else writeln('в строке одно слово');
</span><span>end.
</span><span>
</span>
1. 40Мб = 40960 Кб. Пусть V1 = 128 Кб/c, а V2 = 64Кб/c (по условию), то S1=20480Кб, а S2, соответственно, тоже 20480Кб. Отсюда t1= S1/V1 или t1=20480Кб/128Кб/с=160с. Соответственно t2=20480Кб/64Кб/c=320c. Отсюда t=160+320=480c или 480с/60с=8минут.
2. 19минут = 1140 секунд. Тогда размер файла составляет 17Мб*1140с=19380Мб или,примерно, 19Гб.
Т.к. 1Гб не оплачивается, то 19-1=18Гб трафицируются. Тогда 18Гб=18432Мб.
Цена составляет 18432Мб*0,06 рублей = 1106 рублей.
P.S. Не дешевый, однако, провайдер. :D
Ответ е2)
муравей двигается по полю
Автозаполнение - функция, позволяющая заполнять ячейки данными на основе шаблона или данных в других ячейках (т.е. однотипными данными).
Острое зрение.!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!