при скачивании можно воспользоваться специально предназначенным для таких целей ПО в виде download-менеджеров,работу которых не сложно настроить по расписанию.Кстати, на любителей работать в Интернете в определенное время суток рассчитаны специализированные тарифные планы провайдеров и возможно взглянув на них под данным углом зрения, вы сможете подобрать себе более дешевый вариант доступа.
Существует и еще один момент. Как правило, при коммутируемом доступе большинство провайдеров учитывают только время доступа — в этом случае вы платите не за реально полученные данные, а за время, проведенное на линии. Но это вовсе не обязательно — наряду со временем доступа ряд провайдеров может параллельно учитывать и трафик, а возможно,есть и такие провайдеры,которые при модемном доступе, как и при работе по выделенным каналам связи,вообще учитывают только трафик. И здесь кроется один подводный камень.Если вы просто путешествуете по Интернету,то вы можете затрачивать много времени при достаточно небольшом трафике, а значит,вам выгоднее платить за трафик,а не за время.
1.
program z1;
var V1,V2,S:integer;
begin
write ('V1 = ');
readln (V1);
write ('V2 = ');
readln (V2);
write ('S = ');
readln (S);
if S/V1 = S/V2 then writeln ('Автомобили приехали одновременно');
if S/V1 > S/V2 then writeln ('Второй автомобиль приехал быстрее, а первый ехал дольше.');
if S/V1 < S/V2 then writeln ('Первый автомобиль приехал быстрее, а второй ехал дольше.');
end.
2.
program z2;
var a:integer;
begin
write ('Введите четырёхзначное число: ');
readln (a);
if (a div 1000 + a div 100 mod 10) > (a mod 100 div 10 + a mod 10) then
begin
writeln ('Сумма всех цифр числа ',a div 1000 + a div 100 mod 10 + a mod 100 div 10 + a mod 10);
writeln ('Произведение всех цифр числа ',(a div 1000) * (a div 100 mod 10) * (a mod 100 div 10) * (a mod 10))
end
end.
Объяснение:
ухом ртом глазами