Врезультате повреждения носителя информации оказались дефектными 96636764,16 байт что составляет 9% от всей ёмкости. какой объём имеет носитель? записать носители которые по ёмкости соответствуют полученному объёму,
Решение на VB.NET: Const SIZE As Integer = 4 Dim a, sum As Integer a = Console.ReadLine() sum = a Dim n(SIZE) As Integer For i = 1 To SIZE n(i) = a Mod 10 a \= 10 Next For i = 1 To SIZE For j = i + 1 To SIZE If n(i) > n(j) Then Dim t As Integer t = n(i) n(i) = n(j) n(j) = t ElseIf n(i) = n(j) Then Console.WriteLine("Ошибка") Exit Sub End If Next Next For i = 1 To SIZE sum += (n(i) + n(SIZE - i + 1)) * 10 ^ (i - 1) Next Console.WriteLine(sum) Console.ReadKey()
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество элементов массива:'); var x:=ReadReal('Введите значение Х для заполнения массива:'); var a:=ArrFill(n,x); a.Println end.
Пример Количество элементов массива: 13 Введите значение Х для заполнения массива: 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5
begin var n:=ReadInteger('Количество элементов массива:'); var x:=ReadInteger('Введите начальное значение Х для заполнения массива:'); var a:=ArrGen(n,i->i+x); a.Println end.
Пример Количество элементов массива: 15 Введите начальное значение Х для заполнения массива: 8 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
x = 100%
x = 96636864/9 * 100% = 10737409601.8 байт
10737409601.8 байт = 10 Гб