Г)4 потому что мы посмотрели сколько одинаковых файлов оставили 1 из каждой группы а другие удалили
Program Task;
Const a = 5;
b = 10;
Var i, c, d: Integer;
Begin
If a > b Then
WriteLn('Ошибка')
Else
Begin
For i := a To b Do
If i > 0 Then
Begin
c := c + i;
d := d + 1;
End;
If d > 0 Then
WriteLn('Результат: ', (c / d):5:2)
Else
WriteLn('Таких чисел нет');
End;
<span>End.</span>
Если это про системы счисления, то тогда 1001010100
Было скучно и я решил замарочиться:DТут и процедура и рекурсия:)Основной блок программы на второй картинке. Const n - размерность матрицы.Понятно дело,что можно намного проще и без рекурсии,но мне интересно было сделать с ней.Не разумно в данном случае.Вы так не делайте:D