Сначала сервер со скоростью провайдера 10 Мбит/с загрузил 640Кбайт информации.
640Кбайт= 640*8=5120 Кбит.
5120Кбит=5120/1024=5 Мбит.
Сервер потратит на загрузку этих 5 Мбит время, равное 5/10=0.5 (с)
Потом начнется скачивание данных пользователем. Объем данных равен 3 Мбайта = 3*8=24 Мбита, что составляет 24*1024=24576 Кбит.
При скорости скачивания 64 Кбит/с, на это понадобится 24576/64=384с.
Общее время составит 0.5+384=384.5с
Любую? тогда так:
var a,b,c:real;
begin
writeln('Первое число');
readln(a);
writeln('Второе число');
readln(b);
c := a + b;
writeln('Ответ:',c)
end.
если что-то не правильно скажи. А то я не могу проверить т.к. компа рядом нету.
Нет конечно, он скорее будет тормозить от жары, чем от холода.
Гласных и согласных по три штуки (поровну), слово может начинаться и с согласной, и с гласной. Также каждая буква используется только один раз. Также согласные и гласные не стоят рядом. Следовательно, можно составить:
3*3*2*2*1*1=36 различных кодов.
Var N, k, digit, prod: longint;
begin
readln(N);
prod := 1; // Произведение не должно быть равно 0, в вашем случае просто отделают последнюю цифру, не проверяя ее кратна она 3 или нет
k := 0;
while (N > 0) do
begin
digit := N mod 10;
if (digit mod 3 = 0) and (digit<>0) then begin // (digit<>0) проверка на неравенство нулю(любое число*0=0)
prod := prod*digit;
k := k+1;
end;
N := N div 10;
end;
if (k = 0)
then writeln('NO')
else writeln(prod) // Выводить нужно не конечное N, а именно произведение(prod)
end.
