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

1. Сколько единиц в двоичной записи восьмеричного числа 175? А) 6 В) 5 C) 3
D) 4
2. Значение выражения 1000, + 118-1116 в двоичной системе счисления равно
А) 10111110 В) 10100001
C) 10001 100 D) 11000010
3. Определите значение целочисленных переменных а и b после выполнения фрагмента
программы:
а:= 1819; b:= (a mod 100)*10+9; a:= (10*b-a) div 100;
А) а = 1, b = 199 В) а = 81, b = 189 С) а = 71, b = 199 D) a=71, b = 189
4. Значения двух массивов А[1..100] и В[1..100] задаются с следующего
фрагмента программы. Сколько элементов массива В будут иметь отрицательные
значения?
for n:=1 to 100 do A[n]:=n-10; fоr n:=1 to 100 do B[n]:=A[n]*n;
А) 10 В) 50 C) 90 D) 100
5. Укажите, какое логическое выражение равносильно выражению АЛВА.
А) Ал ТВ
B) А
С) АЛВ
D) AvВ
6. Какое логическое выражение равносильно выражению Av вл С?
A) AlcvB B) Av1cv B) C) AV (Cy B) D) AvlcvВ
7. Рассматривается множество неотрицательных целых чисел. Определите
максимальное число из этого множества, кодируемое 11 битами.
А) 2047
B) 11 C) 888
D) 1024
8. Укажите минимальный объем памяти в килобайтах, достаточный для хранения
растрового изображения размером 512x256 пикселей с 64 цветами в палитре.
А) 512
В) 96 C) 1024 D) 16
9. MS Excel. В ячейке В1 записана формула =2*$A$1. Какой вид приобретет формула,
после того как ячейку В1 скопируют в ячейку С2?
А) =2*SBS IB) =2*$ASIC) =3*$A$2D) =3*$B$ 1
10.Вычислите сумму чисел 1916 и 638. Результат представьте в двоичной системе
счисления.
А) 1 101 1011
B) 1110001 C) 1100011 D) 1001 100
11.Каково наибольшее целое число X, при котором истинно высказывание:
X (X + 1) 2 72)л (ХХ <65)?
В) 8 C) 7 D) 1 1
12.Ссылка в электронной таблице - это:
А) номер столбца и номер строки
В указания адреса ячеек
C) совокупность математическихоператоров чисел, функций
D)область определяемая пересечением столбца и строки электронной таблицы
13.Имя файла обязательно должно содержать
A) название
B) расширение
C) названием и расширения
D) все ответы верны ​

👇
Открыть все ответы
Ответ:
1980а1980
1980а1980
09.10.2021

program aaa;

const n=50;

var w, c, x, d10, d4, d1: integer;  

begin 

  writeln ('введите вес бандероли');

  readln (w);

  if w < = n

    then c: =10

    else  

        if w mod n = 0

          then c: =10+((w div n)-1)*5

          else c: =10+5+((w div n)-1)*5;

 

  d10: = c div 10;

  d4: = (c-10*d10) div 4;

  d1: = (c-d10*10-d4*4);

 

  writeln ('стоимость бандероли: ',c,' драхм');

  writeln;

  writeln ('для оплаты нужно не менее');

  writeln (d10: 10,' монет по 10 драхм');

  writeln (d4: 10,' монет по 4 драхмы');

  writeln (d1: 10,' монет по 1 драхме');

end.

результат работы программы:

введите вес бандероли       100

стоимость бандероли: 15 драхм

для оплаты нужно не менее

          1 монет по 10 драхм

          1 монет по 4 драхмы

          1 монет по 1 драхме

4,5(8 оценок)
Ответ:
glazyrinasasha
glazyrinasasha
09.10.2021
var
  x: string;
  arr: array of char;

begin
  readln(x);
  arr := x.Split(' ')[1].ToCharArray();
  System.Array.Reverse(arr);
  writeln(length(arr), '   ', new string(arr));
end.

var
  c: array of integer := (10, 20, 10, 30, 40, 50, 55, 1, 5, 9, 4, 3, 2);
  r, q, s: real;
  i, a, b: byte;
  
begin
  q := 1;
  i := 1;
  r := c.Min();
  while (i < length(c)) do
  begin
    q *= c[i];
    i += 2;
  end;
  readln(a, b);
  s := b - a - 1;
  writeln('T = ', (R / Q + 1) + S);
end.

const
  k = 5;
  p = 5;

var
  f: array [1..k, 1..p] of string;
  o: real;
  df: byte;

begin
  for i: byte := 1 to k do
  begin
    for j: byte := 1 to p do
    begin
      f[i, j] := random(10, 99).ToString();
      write(f[i, j]:3);
      if (j >= 7 - i) then
      begin
        o += integer.Parse(f[i, j]);
        df += 1;
        f[i, j] := '██';
      end;
    end;
    writeln();
  end;
  writeln();
  for i: byte := 1 to k do
  begin
    for j: byte := 1 to p do
      write(f[i, j]:3);
    writeln();
  end;
  writeln(o / df);
end.
4,6(20 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ