1.Программа алплаллалпдпдпдппжюппд
Var a,b,c,d,e:real;
Begin
WriteLn('Отрезок [a,b]');
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
WriteLn('Введите три числа');
ReadLn(c,d,e);
if (a<=c)and(a<=d)and(a<=e)and(c<=b)and(d<=b)and(e<=b) then
WriteLn('Числа принадлежат заданному отрезку')
else
WriteLn('Числа не принадлежат заданному отрезку');
ReadLn
End.
Вот держите:
var n,i,l,m:integer; sum:real;
begin
readln(n);
sum:=1; l:=1;
while m<>n do begin
m:=m+2;
sum:=sum-((1/m)*l);
l:=l*-1;
end;
writeln(sum);
end.
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