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

1. Ресурсосбережение - это а) наука.
б) сохранение ресурсов и рациональное их использование.
в) экономия денег.
г) уборка мусора на улице.

2. Унарная система счисления - это
а) система счисления, которая использует пальцы.
б) система счисления, которая использует яблоки.
в) простейшая система счисления, в которой для обозначения количества чисел используют только один символ.
г) система счисления, которая использует овец.

3. Какая система счисления является не позиционной (выбрать несколько ответов).
греческая, арабская, римская, унарная, вавилонская.

4. Какая система счисления является позиционной (выбрать несколько ответов).
арабская, унарная, греческая, римская, вавилонская.

5. Какое число не может быть восьмеричным.
а) 75.
б) 185.
в) 54.
г) 32.

👇
Ответ:

1 б

2 В

3 греческая,арабская,вавилонская

4 унарная,римская

5 б

4,4(77 оценок)
Открыть все ответы
Ответ:
aniyzelenev
aniyzelenev
13.11.2020
Const n=5; // обязательно должно быть нечетным
var
  i,j,max,x,k:integer;
  a:array[1..n,1..n]of integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
  begin
  for j:=1 to n do
    begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
    end;
  writeln;
  end;
max:=a[1,1];
for i:=1 to n do
  begin
  if a[i,i]>max then max:=a[i,i];
  if a[i,n+1-i]>max then max:=a[i,n+1-i];
  end;
k:=n div 2+1;
x:=a[k,k];
for i:=1 to n do
  begin
  if a[i,i]=max
  then a[i,i]:=x;
  if a[n+1-i,i]=max then a[n+1-i,i]:=x;
  end;
a[k,k]:=max;
writeln('Измененный массив:');
for i:=1 to n do
  begin
  for j:=1 to n do
    write(a[i,j]:4);
  writeln
  end
end.
4,6(79 оценок)
Ответ:
Gaziz05
Gaziz05
13.11.2020
Type
  V = array of real;

function SumPos(a:V): real;
var
  i: integer;
  s: real;
begin
  s := 0;
  for i := 0 to Length(a, 0) - 1 do
    if a[i] > 0 then s := s + a[i];
  Result := s
end;

var
  A, B, C: V;

begin
  A := new real[10] (17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3);
  B := new real[12] (-1.2, 4.2, 5.9, -18.1, 21.2, -3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4);
  C := new real[8] (3.5, 8.4, -3.2, 4.5, -8.4, -9.5, 1.5, 9.3);
  writeln('Сумма положительных элементов массива А ',SumPos(A));
  writeln('Сумма положительных элементов массива B ',SumPos(B));
  writeln('Сумма положительных элементов массива C ',SumPos(C));
end.

Тестовый прогон:

Сумма положительных элементов массива А 63.5
Сумма положительных элементов массива B 70.3
Сумма положительных элементов массива C 27.2
4,6(89 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ