Var i, k, n, sum: Integer;
    a: Array[1..1000000] of Integer;
begin
ReadLn(n, k);
for i:=1 to n do a[i]:=i;
sum:=0;
for i:=1 to n do
    if a[i] mod k = 0 then
      sum:=sum+a[i];
WriteLn(sum);
end.

0 0

4 года назад

К какому классу сети относился бы IP-адрес 130.131.132.133 при классовой адресации (действовала до 1993 года)? а) A б) B в) C г)

Crispi [309]

Определяется по первому октету.
130 относится к B.

0 0

4 года назад

Деректерді ADSL косылысы арқылы тасымалдау жылдамдығы256000 бит/с.Осы қосылыс арқылы файылды тасымалдауға 16 секунд уақыт керек.

Фламме [991]

Жауап: 500Кб

Түсініктеме:

1 Килобайт = 1024 байт
256000 бит / с = 32000 байт / с
файл өлшемі-32000 * 16 = 512000 байт
512000 байт = 500 Килобайт

0 0

4 года назад

Что общего у данных и программы?

женя1112

Система хранения.............................

0 0

3 года назад