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

Какое количество страниц неформатированного текста можно поместить на дискету емкостью 1,44 мбайт?

Показать ответ
Ответ:
Twister04
Twister04
27.07.2022 16:44
#include <iostream>

using namespace std;

int main()
{
    setlocale(LC_ALL, "RUSSIAN");
    const int arr_len=20;
    int arr[arr_len];
    int i = 0;
    srand(8120);
    for (i = 0; i < arr_len; i++)
    {
        arr[i] = rand() % 100;
        cout << arr[i] << ' ';
    }
    cout << endl;
    int min = 100, min_index=arr[0];
    for (i = 0; i < arr_len; i++)
    {
        if (arr[i] < min)
        {
            min = arr[i];
            min_index = i;
        }
    }
    cout << "Минимальный элемент массива: " << min << endl;
    cout << "Его индекс: " << min_index << endl;
    system("pause");
}
0,0(0 оценок)
Ответ:
olegtab34
olegtab34
03.03.2022 00:36
{$APPTYPE CONSOLE}
uses
  SysUtils;

Var
   C:string;
   i:integer;
begin
Read(C);
if Length(C) mod 4 <> 0 then
   For i:= 1 to 4-Length(C) mod 4 do
       C:='0'+C;
For i:= 1 to Length(C) div 4 do
    Case StrToInt(C[4*i-3]+C[4*i-2]+C[4*i-1]+C[4*i]) of
    0000:Write(0);
    0001:Write(1);
    0010:Write(2);
    0011:Write(3);
    0100:Write(4);
    0101:Write(5);
    0110:Write(6);
    0111:Write(7);
    1000:Write(8);
    1001:Write(9);
    1010:Write('A');
    1011:Write('B');
    1100:Write('C');
    1101:Write('D');
    1110:Write('E');
    1111:Write('F');
    End;
ReadLn;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота