program del;
uses crt;
var chisla: array[1..15] of integer;
n, i, k:integer;
begin
clrscr;
write ('Введите кол-во чисел: ');
readln (n);
for i:=1 to n do
begin
write ('Введите 'i'-тое число: ');
readln (chisla[i]);
end;
for i:=1 to n do
if ((chisla[i] mod 3=0) and (chisla[i] mod 5=0) and (chisla[i] mod 7=0)) then
k:=k+1;
write ('На 3, 5 и 7 одновременно делятся ',k,' чисел.');
readln;
end.
У меня щас компилятора нету, так что не проверял. Если есть ошибки, или вопросы - стучись в личку.
Смотри.
Изначально смотрим что у нас не совпадают еденицы измерения, скорость передачи у нас в БИТАХ в секунду, а размер файла в КИЛОБАЙТАХ.
Переводим Килобайты в байты (1 Килобайт=1024 байтам, 1 байт = 8 битов)
Следовательно 2000 Килобайт * 1024 = 2048000 байт * 8= 16384000 бит.
Скорость передачи данных = объем данных / на время затраченное для передаци этих данных.
Следовательно чтобы найти время затраченое для передачи данных надо объем переданных данных (т.е. 2000 Кбайт, которые мы предварительно перевели в биты 16384000 бита) поделить на скорость передачи данных 1024000бит/с.
16384000бит / 1024000 Кбит/с = 16 сек.
Что собственно и является ответом.