Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Program zadacha; Var k, m: integer; A:array[1..10] of integer; Begin A[1]:= 10; A[2] A[3]:= 10; A[4] A[5]:= 15; A[6é] A[7]:= 97 A[8]: A[9]:= 11; A[10]:= 9; m:= 1; for k := 1 to 10 do if A[k] < 10 then begin m:= mt+1; end; writeln(m); End.

Смотри.

Изначально смотрим что у нас не совпадают еденицы измерения, скорость передачи у нас в БИТАХ в секунду, а размер файла в КИЛОБАЙТАХ.

 

Переводим Килобайты в байты (1 Килобайт=1024 байтам, 1 байт = 8 битов)

Следовательно 2000 Килобайт * 1024 = 2048000 байт * 8= 16384000 бит.

 

Скорость передачи данных = объем данных / на время затраченное для передаци этих данных.

 

Следовательно чтобы найти время затраченое для передачи данных надо объем переданных данных (т.е. 2000 Кбайт, которые мы предварительно перевели в биты 16384000 бита) поделить на скорость передачи данных 1024000бит/с.

16384000бит / 1024000 Кбит/с = 16 сек.

 

Что собственно и является ответом.

 

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.

 

 

 

 

 

 

 У меня щас компилятора нету, так что не проверял. Если есть ошибки, или вопросы - стучись в личку.