На рисунке изображён логический диск, разделённый на кластеры. Размер каждого кластера составляет 16 Кбайт. Используемые кластеры - серые, свободные кластеры – белые. На диск требуется записать файлы: файл А размером 20 Кбайт, затем файл В размером 30 Кбайт, затем файл С размером 65 Кбайт, и наконец — файл D размером 60 Кбайт.
Ты бот решай сам!
Ты бот решай сам!
Ты бот решай сам!
Ты бот решай сам!
Ты бот решай сам!
Ты бот решай сам!
Ты бот решай сам!
Ты бот решай сам!
Ты бот решай сам!
Ты бот решай сам!
Ты бот решай сам!
Задачи 1,2,4: / PascalABC.Net 3.0, сборка 1066 var n:BigInteger; begin var s:=ReadlnString('Введите натуральное число: '); If BigInteger.TryParse(s,n) then begin var c:=ReadChar('Введите проверяемую цифру: '); Writeln(c, ' встречается в ',s,' ',s.Where(x->x=c).Count,' раз'); Writeln('Максимальная цифра числа: ',s.Where(x->x=s.Max).Distinct); Writeln('Перевертыш: ',s.Inverse); end else Writeln('Ошибка при вводе числа') end.
Тестовое решение: Введите натуральное число: 355678679650768680078676985643546809678546263435 Введите проверяемую цифру: 4 4 встречается в 355678679650768680078676985643546809678546263435 4 раз Максимальная цифра числа: [9] Перевертыш: 534362645876908645346589676870086867056976876553
Задача 3 // PascalABC.Net 3.0, сборка 1066 begin var m:int64:=-1; var n:int64:=0; Writeln('Принимаются неотрицательные целые числа'); while (n>=0) and (m<n) do begin m:=n; n:=ReadInteger('Введите число: ') end; if m>=n then Writeln('Последовательность невозрастающая') else Writeln('Последовательность возрастающая') end.
Задачи 1,2,4: / PascalABC.Net 3.0, сборка 1066 var n:BigInteger; begin var s:=ReadlnString('Введите натуральное число: '); If BigInteger.TryParse(s,n) then begin var c:=ReadChar('Введите проверяемую цифру: '); Writeln(c, ' встречается в ',s,' ',s.Where(x->x=c).Count,' раз'); Writeln('Максимальная цифра числа: ',s.Where(x->x=s.Max).Distinct); Writeln('Перевертыш: ',s.Inverse); end else Writeln('Ошибка при вводе числа') end.
Тестовое решение: Введите натуральное число: 355678679650768680078676985643546809678546263435 Введите проверяемую цифру: 4 4 встречается в 355678679650768680078676985643546809678546263435 4 раз Максимальная цифра числа: [9] Перевертыш: 534362645876908645346589676870086867056976876553
Задача 3 // PascalABC.Net 3.0, сборка 1066 begin var m:int64:=-1; var n:int64:=0; Writeln('Принимаются неотрицательные целые числа'); while (n>=0) and (m<n) do begin m:=n; n:=ReadInteger('Введите число: ') end; if m>=n then Writeln('Последовательность невозрастающая') else Writeln('Последовательность возрастающая') end.
Ты бот решай сам!
Ты бот решай сам!
Ты бот решай сам!
Ты бот решай сам!
Ты бот решай сам!
Ты бот решай сам!
Ты бот решай сам!
Ты бот решай сам!
Ты бот решай сам!
Ты бот решай сам!