1 Кб = 1024 б
1 б = 8 бит
4,42 * 1024 * 8 = 36 208,64 бит
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество элементов массива:');
var x:=ReadReal('Введите значение Х для заполнения массива:');
var a:=ArrFill(n,x); a.Println
end.
<u>Пример</u>
Количество элементов массива: 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.
<u>Пример</u>
Количество элементов массива: 15
Введите начальное значение Х для заполнения массива: 8
8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
-------------------------------------------------
Число заносите в ячейку А1 в ячейку В1 пишете формулу =A1*((A1>=850)*0,10+(A1>=6000)*0,05)
во вложении экселевский файлик с решением