Ms dos qbasic 1.0: cls randomize timer input "k = ", k input "l = ", l dim x! (k, l) for i = 1 to k for j = 1 to l x(i, j) = rnd * 21 - 10 print using "###"; x(i, j); print ; " "; next j print next i for i = 1 to l * 4 - 1 print ; "_"; next i print for n = 1 to l for i = 1 to l - n - 1 if x(i, 2) < x(i + 1, 2) then b = x(i, 2) x(i, 2) = x(i + 1, 2) x(i + 1, 2) = b end if next i next n for i = 1 to k for j = 1 to l print using "###"; x(i, j); print " "; next j print next i end
ost:=n mod 100;
k:=n div 100;
if (ost>=10) and (k=0) then write ("Yes") else write("No!);
Объяснение:
Разделив число на 100, найдите целую часть от деления к и остаток от деления ost.
Если целая часть =0, значит вы делили двузначное или однозначное.
Если к этому условию добавить то, что ost двузначный, то это число двузначное. Все остальные комбинации дают отрицательный ответ.