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

Проверочная работа по теме «системы счисления»
вариант - 2
1. какое минимальное основание имеет система
счисления, если в ней записаны числа:
а) 44 б) 59 в) 2c
верны ли следующие равенства?
а) 44х=715; б) 638=12123.
3. выполните следующие переводы из десятичной
системы счисления:
а) 7210=> а,; б) 13710-as; в) 10910-a16;
выполните вычисления в двоичной системе
счисления:
1101, * 11, + 1011​

👇
Открыть все ответы
Ответ:
evgeniya64
evgeniya64
04.04.2023
Using System;

class Program
{
        static void Main(string[] args)
        {
            int n=10;
            int[] a = new int[n];
            int max;
            Random r = new Random();
            Console.WriteLine("Массив a:");
            for (int i = 0; i < n; i++)
            {
                a[i] = r.Next(41)-20;
                Console.Write("{0,5}", a[i]);
            }
            Console.WriteLine();
            max = a[0];
            for (int i = 1; i < n; i++)
                if (a[i]>max) max = a[i];
            Console.Write("max = {0}", max);
            Console.ReadKey();
        }
}

Пример:
Массив a:
 3 7 17 -11 9 20 7 3 -15 10
max = 20
4,6(83 оценок)
Ответ:
elvira13131313
elvira13131313
04.04.2023
*** 1 ***
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
  var w:='КОМПЬЮТЕР';
  Writeln(w[1:4]);
  Writeln((w.Right(3).Inverse)+w[w.Length]+w[2]);
  Writeln(w[w.Length]+w[2::-1])
end.

Результат
КОМ
РЕТРО
РОК

*** 2 ***
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
  var w:='КОМПЬЮТЕР';
  var i:=ReadInteger('i=');
  Swap(w[i],w[w.Length]);
  Writeln(w)
end.

Тестовое решение
i= 5
КОМПРЮТЕЬ

*** 3 ***
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
  var w:='ПАР'; // исходное слово
  var k:=4; // константа сдвига шифра Цезаря
  var a:='';
  for var i:=1 to w.Length do begin
    var p:=Pos(w[i],a);
    if p>0 then w[i]:=a[p+k]
    end;
  Writeln(w)
end.

Результат
УДФ
4,4(91 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ