Предмет: Информатика,
автор: 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
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
Автор ответа:
0
Благодарочка
Автор ответа:
0
Для благодарочек есть кнопочка))) А звездочки показывают размер благодарочки.
Похожие вопросы
Предмет: Обществознание,
автор: Аноним
Предмет: Математика,
автор: Cekviun
Предмет: Геометрия,
автор: mechtakst21
Предмет: Математика,
автор: andreypopravka