Исходя из длительности и тарифа S р. за минуту разговора по телефону определить стоимость разговора по телефону с учетом скидки: по субботам предоставляется скидка в 15%, по воскресеньям в 20%.

На  моем любимом бейсике
Dim A() As Integer, i As Integer, k As Integer, N As Integer
Randomize
Print "N = "; : Input N
ReDim A(N, N)
For i = 1 To N
For k = 1 To N
A(i, k) = Int(Rnd(1)*10) + 1 ' Заполняем матрицу случайными числами от 1 до 10
Print A(i, k) & CHR(9); ' Выводим начальную матрицу через табуляцию
Next k
Print ' Переход на следующую строку вывода
Next i
Print : Print ' Опускаемся на 2 строки
For i = 1 To N
For k = 1 To N
If k >= i Then A(i, k) = 1 ' Заполняем единицами нужную область
Rem У области выше главной диагонали номер столбца больше строки
Print A(i, k) & CHR(9); ' Выводим конечную матрицу через табуляцию 
Next k
Print ' Переход на следующую строку вывода
Next i
End

Дискеты формата 3,5" может иметь разную ёмкость
Но возьмём стандартную 1440 КБайт = 1 474 560 Байт
Так как на носителе надо отталкиваться не только от объёма но и от размера кластера, то получается -> на такой дискете имеется 2880 кластеров из которых доступно 2847, объём одного кластера  Байт. Следует что в первых двух случаях а) и б) будет одинаковое кол-во файлов так как не превышает минимального объёма кластера, получаем 2847 файлов которое равняется кол-ву доступных кластеров на дискете. Вариант в) получаем  т.е. больше двух кластеров. Для хранения одного файла размеров 1030 требуется 3 кластера ->  файлов.

P.S. Думаю достаточно подробно описал.