Magnolia200872
?>

MS Word - та кесте сызып , желідегі қауіпті және қауіпсіз әрекеттерді бөліп жазыңдар . Құпиясөзді жасырын ұстаңдар ; Вирусқа қарсы программаны жаңартыңдар ; Жеке басқа қатысты ақпаратты құпия ұстаңдар ; Әлеуметтік желілерде сыпайылықпен әрекет етіңдер ; Достарыңа хат жазыңдар ; Ересектердің көмегінсіз арнайы желілерде сауалнама ларды толтырмаңдар ; Басқа адамдарға әлеуметтік желілерде тіл тигізбеңдер ; Күдікті хабарламаларды ашыңдар ; Бейтаныс адаммен онлайн режимінде сөйлесіңдер ; Күдікті мазмұндағы хабарламаларды ашыңдар ; Ақылы ойындарға , байқауларға , лотереяға қатысыңдар ;

Информатика

Ответы

Сергей_Крутикова114

var

  a : array [1..9] integer;

  i : integer;

begin

  for i := 1 to 9 do

    if i mod 3 = 1 then a[i] := i

    else if i mod 3 = 2 then a[i] := sqr (i - 1)

    else a[i] := a[i - 1] div i;

  for i := 1 to 9 do

    write (a[i], ' ');

end.

 

var

  b, a : array [1..15] of integer;

  i, sa, sb : integer;

begin

  randomize;

  sa := 0; sb := 0;

  for i := 1 to 15 do

  begin

    a[i] := trunc (random (100)) + 1;

    write (a[i], ' ');

    sa := sa + a[i];

  end;

  writeln;

  for i := 1 to 15 do

  begin

    b[i] := sqr (a[i]) - a[i]);

    write (b[i], ' ');

    sb := sb + b[i];

  end;

  writeln;

  writeln (abs (sb - sa));

end.

  

natkuv7
Чтоб продать игру, нужно создать хорошую игру. а по сравнению с тем, какие игры сейчас выпускают, многим лень этим заниматься. поэтому предпочтительнее делать довольно таки простую игру, потому что всегда найдутся те, кому она придется по вкусу. суть доната состоит в том, чтобы получить определенные плюшки за реальные деньги. игры в наше время популярны, а поэтому и интерес стать более крутым в виртуальном мире больше. а так как донат не один, то это желание все больше и больше подхлестывает закинуть денежек. в некоторых играх можно также заметить, что различие между донатом и обычным игроком довольно таки велико, и поэтому игроку приходится либо не играть, либо класть деньги

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

MS Word - та кесте сызып , желідегі қауіпті және қауіпсіз әрекеттерді бөліп жазыңдар . Құпиясөзді жасырын ұстаңдар ; Вирусқа қарсы программаны жаңартыңдар ; Жеке басқа қатысты ақпаратты құпия ұстаңдар ; Әлеуметтік желілерде сыпайылықпен әрекет етіңдер ; Достарыңа хат жазыңдар ; Ересектердің көмегінсіз арнайы желілерде сауалнама ларды толтырмаңдар ; Басқа адамдарға әлеуметтік желілерде тіл тигізбеңдер ; Күдікті хабарламаларды ашыңдар ; Бейтаныс адаммен онлайн режимінде сөйлесіңдер ; Күдікті мазмұндағы хабарламаларды ашыңдар ; Ақылы ойындарға , байқауларға , лотереяға қатысыңдар ;
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Chernaya
Сергей_Крутикова114
missmorozova2
Zhanibekrva Kandaurova
potemkin77
Sashagleb19
Shago
Sadikova Gavrikov
МАМОНОВА-андрей
mez-omts-d5
e3913269
Boss5519
Андреевна-Арзуманян1109
uvarovig
armusaeff