В а - количество проходов по циклу (а=2; 2*2=4 - четырёхзначное число Х)
в b - сумма двух пар цифр числа Х (x mod 100 - выделение двух последних цифр из Х)
a=2 b=17
17-9=8 ответ max X=9800
При помощи языка мы общаемся и помогает в этом нам словестные описания
Не ясно на каком именно бейсике это написано, но у меня есть только 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
Да это правда
:))))
Не за что помочь