1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | CLSPRINT "Poluchenie nat.chisla putem zapisi tsifr iskhodnogo v obratnom poryadke"PRINT ""10 INPUT "Vvedite kol-vo chisel: ", nIF n < 0 THEN PRINT "Oshibka. Vvedeno otritsatelnoe kolichestvo chisel"IF n < 0 THEN GOTO 10IF n = 0 THEN PRINT "Oshibka.Vvedeno kol-vo chisel, ravnoe 0"IF n = 0 THEN GOTO 10IF n < 1 THEN PRINT "Oshibka.Vvedeno desyatichnoe kol-vo"IF n < 1 THEN GOTO 10FOR i = 1 TO n 20 INPUT "Vvedite chislo:", a& IF a& < 0 THEN PRINT "Oshibka.Vvedeno otritsatelnoe chislo" IF a& < 0 THEN GOTO 20 IF a& < 1 THEN PRINT "Oshibka.Vvedeno desyatichnoe chislo" IF a& < 1 THEN GOTO 20 b& = 0 DO b& = b& * 10 + a& MOD 10 a& = a& \ 10 LOOP UNTIL a& = 0 IF b& <= 10 THEN PRINT "Vvedeno chislo, ne imeyushchee obratnoe" IF b& <= 10 THEN GOTO 30 PRINT "Obratnim chislom yavlyaetsya:" PRINT b&30 NEXT |
Тестирование выполнено в программе QB64 ( Скачать )