М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
елена1245678
елена1245678
16.12.2021 12:21 •  Информатика

1. Кестедегі В бағанының ұяшықтар пішімін бөлшектік, проценттік, сандық пішімдеу жолын жазыңыз.

1. Ұяшықтарды белгілеу

2.

3.

4. «Ok» батырмасын басу.

[2]

3. Бос жерге сөз қойып, анықтаманы толықтырыңыз:

1. — тігінен орналасқан бағандар және көлденеңінен орналасқан жолдар қиылысында пайда болған ұяшық жиыны.

2. — қағаз пішімінің электрондық нұсқасы іспеттес.

3. — 256 бағанынан және 65536 қатарларынан тұрады.

4. Excel бағдарламасының пайдалы мүмкіндіктерінің бірі сандар мен күндерді түрлі әдістермен болып табылады.

5. Парақшадағы әр ұяшықтың ішінде орналасқан кішкентай диаграмманы деп атайды.

[5]

4. Кестенің диаграммасын тұрғызу әркеттерін сипаттаңыз.

1. Ұяшықтарды белгілеу

2.

3.

[2]

👇
Открыть все ответы
Ответ:
basarbakhtiar
basarbakhtiar
16.12.2021

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.

  

4,5(79 оценок)
Ответ:
ganjaman007
ganjaman007
16.12.2021
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  var n:=ReadInteger('Количество элементов массива ');
  var m:=ArrRandom(n,-50,50); m.Println(', ');
  var a:=0; var b:=0; var c:=0;
  for var i:=0 to n-1 do begin
    if m[i]>0 then a:=a+m[i];
    if m[i]<m[b] then b:=i;
    if m[i] mod 5 = 0 then Inc(c)
  end;
  var w:=(b+1)+a/(c+1);
  WritelnFormat('A={0}, B={1}, C={2}, W={3}',a,b+1,c,w);
  Writeln('Принято, что элементы массива нумеруются от единицы')
end.

Тестовое решение:
Количество элементов массива  13
-43, -15, 18, -8, -13, -47, -36, 6, -16, 45, 33, 33, -24
A=135, B=6, C=2, W=51
Принято, что элементы массива нумеруются от единицы

Составить программу вычисления, w = b + a - сумма положительных элементов массива; b – номер наимень
4,6(24 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ