Написать функцию подсчитывающую кол-во цифр числа. Используя ее , определить , в каком из двух данных чисел больше цифр QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
DEFLNG A-Z
 DECLARE FUNCTION C% (Ch&)
 CLS
  INPUT "Vvedite chislo A :", A: PRINT C%(A)
  INPUT "Vvedite chislo B :", B: PRINT C%(B)
  IF C%(A) > C%(B) THEN PRINT "v pervom bolshe" ELSE PRINT "vo vtorom bolshe"
  
FUNCTION C% (Ch&)
k = 0: f = Ch&
 DO
  f = f \ 10: k = k + 1
 LOOP UNTIL f = 0
 C% = k
END FUNCTION

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment