Предмет: Информатика, автор: pozzox

Найти симметричные натуральные числа из промежутка от А до В (А и В вводятся с клавы). basic, желательно basic256.

Ответы

Автор ответа: Аноним
0
# Симметричные числа
input "Нижняя граница диапазона = ", a
input "Верхняя граница диапазона = ", b
if b<a then
   t=a
   a=b
   b=t
end if
if a<10 then
   print "Числа должны быть по крайней мере двухзначными"
   goto Fin
end if
for i=a to b
   s$=i
   n=length(s$)
   k=n2
   for j=1 to k
      if mid(s$,j,1)<> mid(s$,n-j+1,1) then goto NonSimm
   next j
   print i
NonSimm:
next i
Fin:
end

Тестовое решение:
Нижняя граница диапазона = 954
Верхняя граница диапазона = 1423
959
969
979
989
999
1001
1111
1221
1331


Автор ответа: pozzox
0
Благодарочка
Автор ответа: Аноним
0
Для благодарочек есть кнопочка))) А звездочки показывают размер благодарочки.
Похожие вопросы
Предмет: Обществознание, автор: Аноним