Решить на тему "системы счисления" 1, Перевести 17о в двоичную CC,
2. Перевести 23ло в двоичну СС,
3. Спожить двоичные числа из №1 и №2
4. Перевести двоичное число из №3 в десятичную CC,
5. Перевости 13о в двоичную CC,
6. Перевости 220 в двоичнур СС,
7. Спожить двоичные числа №5 и №6
8. Перевести двоичное число №7 в десятичнур СС,
9. Перевести 560 :
1) в троичну СС
2) в пятиричну сх
3) В восьмиричну сс
10.Перевести в десятичную CC:
1) 123,
2) 123,

👇

Открыть все ответы

Ответ:

artemlykov2000

30.05.2023

// PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
// Внимание! Если программа не работает, обновите версию!

procedure ArrRead(var a:array of integer);
begin
var n:=ReadInteger('Количество элементов в массиве:');
a:=ReadArrInteger('Введите элементы массива:',n)
end;

procedure ArrMult(a:array of integer; var p:BigInteger);
begin
p:=a.Aggregate(BigInteger(1),(p,q)->p*q)
end;

begin
var m1,m2:array of integer;
ArrRead(m1); ArrRead(m2);
var p1,p2:BigInteger;
ArrMult(m1,p1); ArrMult(m2,p2);
Writeln('Произведение элементов первого массива ',p1);
Writeln('Произведение элементов второго массива ',p2);
Writeln('Общее произведение ',p1*p2)
end.

Даны два массива м1 и м2, содержащие к1 и к2 целых чисел, соответственно. определить произведение чи

4,6(72 оценок)

Ответ:

olgagolova2007

30.05.2023

Using System;
using System.Collections.Generic;
using System.IO;
using System.Runtime.Serialization.Formatters.Binary;

internal static class Program
{
    private const string fileName_ = "words.dat";

    private static void Main()
    {
        try
        {
            Console.WriteLine("Ввод строк/слов, каждое с новой строки, окончание ввода - пустая строка");

            var words = new List<string>();
            string line;
            while ((line = Console.ReadLine()) != string.Empty)
                words.Add(line);

            Serialize(fileName_, words.ToArray());
            words.Clear();

            Console.WriteLine("Вывод данных из файла");

            var words_from_file = (string[]) Deserialize(fileName_);
            for (var i = 0; i < words_from_file.Length; i++)
                Console.WriteLine($"{i} = {words_from_file[i]}");
        }
        catch(Exception e)
        {
            Console.WriteLine(e);
        }
        finally
        {
            Console.ReadLine();
        }
    }

    private static void Serialize(string file, object o)
    {
        using (var fs = new FileStream(file, FileMode.Create, FileAccess.Write, FileShare.ReadWrite))
        {
            var bf = new BinaryFormatter();
            bf.Serialize(fs, o);
        }
    }

    private static object Deserialize(string file)
    {
        using (var fs = new FileStream(file, FileMode.Open, FileAccess.Read, FileShare.Read))
        {
            var bf = new BinaryFormatter();
            var o = bf.Deserialize(fs);
            return o;
        }
    }
}

Сериализация в бинарный файл.
В вашей программе действия записи и вывода происходят 2 раза, если это действительно надо повторить, то добавьте все в цикл и повторяйте сколько надо/хочется

4,5(41 оценок)

Это интересно:

Стиль-и-уход-за-собой

06.12.2022

7 шагов к переходу от темных волос к светлым: все, что вы должны знать, чтобы изменить свой цвет волос...

07.06.2020

Как перестать сомневаться: 10 простых шагов...

Питомцы-и-животные

04.01.2023

Как растить котят: основные правила и советы...

Мир-работы

31.01.2020