Это свойство актуальность.... инфо 2010 года явно стара как этот мир
программа на PascslABC под турбопаскаль подправить думаю справишься самостоятельно...
var
s : string;
begin
writeln('введите строку: ');
read(s);
for var i := 1 to s.Length div 3 do insert('.', s, i*4);
writeln('полученная строка: ', s);
end.
<span>using System;
class Program
{
static void Main()
{
var random = new Random(DateTime.Now.Millisecond);
int n = 4;
var a = new int[n, n];
Console.WriteLine("A:");
for (var i = 0; i < n; i++)
{
for (var j = 0; j < n; j++)
{
a[i, j] = random.Next(0, 9);
Console.Write(a[i, j] + " ");
}
Console.WriteLine();
}
Console.WriteLine();
for(int j = 0; j < n; j++) {
a[0, j] = 0; a[n-1, j] = 0;
a[j, 0] = 0; a[j, n-1] = 0;
}
Console.WriteLine("new A:");
for (var i = 0; i < n; i++)
{
for (var j = 0; j < n; j++)
Console.Write(a[i, j] + " ");
Console.WriteLine();
}
Console.WriteLine();
Console.ReadKey();
}
<span> }
Пример:
</span><span>A:
5 1 6 4
2 5 7 4
3 1 5 8
4 8 5 8
new A:
0 0 0 0
0 5 7 0
0 1 5 0
0 0 0 0 </span></span>
Не ясно на каком именно бейсике это написано, но у меня есть только VBS
Так что форматирование может не совпасть
Код
Sub Zadanie
s = ""
n = 4
l = 2
for i = 1 to n
for j = 1 to n
if j=1 or i=1 or i=n or j=n then
s = s & "0"
else
l = l + 1
s = s & l mod 10
end if
next
s = s & vbNewLine
next
MsgBox (s)
End Sub
Вывод
0000
0340
0560
0000
1) 15,6 Мб переводим в гигабайты:
15,6 ÷ 1024 = ~0,015 Гб
2) Находим заполненное:
1,24 + 1,27 + 0,015 = 2,525 Гб
3) Пропорция, чтобы найти количество заполненного в процентах:
16 / 100 = 2,525 / х
Оисюда получаем х = 15,8 %
4) Свободное:
100 - 15,8 = 84,2 %