В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
arianaforever1
arianaforever1
24.03.2023 23:35 •  Информатика

5. Перевести числа из двоичной системы счисления в десятичную покажи ее решения. А) 78; б) 99; в) 67; г) 89

6. Перевести числа из десятичной системы счисления в двоичную покажи ее решения.

А) 1101001 б) 100111 в) 111111

Показать ответ
Ответ:
Molina1234
Molina1234
31.10.2021 09:09

Это не знак деления, а двоеточие.  

В программировании знаком деления является косая черта дроби "/".

При выводе данных можно указать, сколько ячеек (знако-мест) на экране следует отвести для выводимого значения. Это бывает полезно, если, например, ты выводишь на экран таблицу. в которой все элементы должны иметь одну ширину.

writeln(x:4:1,' | ',y:5:2);

Здесь под дробное число x (икс) выделяется четыре знако-места. При этом значение икса округляется до одного знака после запятой. Этот один знак будет выводиться в любом случае — даже если икс целый.

Например, если x = 3, то на экран он выведется так: _ 3 . 0

_ — это как бы пробел.

Для значения y (игрек) выделяется пять знако-мест, а округление идет до двух знаков после запятой.

Например: _ 4 . 1 5

0,0(0 оценок)
Ответ:
Coolgirl03
Coolgirl03
04.10.2020 13:32
Var
    f: file of integer;
    i, n, x, t, k, max: integer;
    s: integer;

begin
    randomize;
    write('n=');
    readln(n);
    
    assign(f, 'numbers.dat');
    rewrite(f);
    
    max := -1;
    for i := 1 to n do
    begin
        x := random(4800) + 20;
        write(f, x);
        write(x, ' ');
        if x > max then max := x;
    end;
    writeln;
    
    seek(f, 0);
    k := 0;
    while not eof(f) do
    begin
        read(f, x);
        t := x;
        s := 0;
        while t > 0 do
        begin
            s := s + sqr(t mod 10);
            t := t div 10;
        end;
        if x mod s = 0 then k := k + 1;
        if x > max - 50 then write(x, ' ');
    end;
    writeln;
    
    writeln(k);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота