Программы, по которым работают компьютеры - это драйверы
Вот так эту задачу можно решить на современном Паскале. Но, к сожалению, так в школах не учат, заставляя тратить время и силы на громоздкие программы, в которых легко ошибиться.
// PascalABC.Net 3.2
begin
Write(ReadlnString('->').ToWords.Where(x->x.Left(2)='со').Count)
end.
Пример:
-> Три собаки сосали одну косточку
2
А вот так (примерно, потому что обычно еще хуже) учат писать программы в школе...
var
s:string;
i,n,k,p:integer;
begin
Write('->'); Readln(s);
if Copy(s,1,2)='со' then k:=1 else k:=0;
Delete(s,1,3);
repeat
i:=Pos(' со',s);
if i>0 then begin
Inc(k);
Delete(s,1,i+3)
end
until i=0;
Writeln(k)
end.
2 минуты = 120 секунд
8 Мбит/с = 8.388.608 бит/с
1) 8388608 / 2 = 4194304
2) 4194304 / 2 = 2097152
3) 2097152 / 2 = 1048576
4) 1048576 / 2 = 524288
5) 524288 / 2 = 262144
6) 262144 / 2 = 131072
7) 131072 / 2 = 65536
8) 865536 / 2 = 32768
9) 32768 / 2 = 16384
10) 16384 / 2 = 8192
11) 8192 / 2 = 4096
12) 4096 / 2 = 2048
13) 2048 / 2 = 1024 =
Прибавим в степень еще действия выше, получим -
Для того, чтобы найти размер файла умножаем скорость на время, получаем:
бит
Переводим в мегабайты, учитывая, что
Мб:
Мб
Ответил так, чтобы можно было решать такие задачи на бумаге. Т.е. путем представления цифр в виде "2 в степени"
Double y(double x)
{
return (4*Math.Pow(x,3)-2*Math.Pow(x,2)+5);
}
static void Main(string[] args){
double x=-3;
while(x<=1)
{
Console.WriteLine("y("+x+")= "+y(x));
x+=0.1;
}}
Var
a,b,y:integer;
Begin
Write('Введите углы треугольника ');
Readln(a,b,y);
if a+b+y=180 then write('Такой треугольник существует ') else write('Такой треугольник не существует ');
End.