Дано число,определить: 1. равна ли сумма 2-х первых его цифр сумме 2-х его последних.- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
INPUT "vvedite chislo ", a
p = 1
posl = a MOD 10 + a \ 10 MOD 10
DO
    s = s + (a MOD 10)
    p = p * (a MOD 10)
    IF a < 100 THEN per = per + a MOD 10
    a = a \ 10
LOOP UNTIL a = 0
IF per = posl THEN PRINT "summa  dvuh pervyh=summe dvuh poslednih" ELSE PRINT "summa  dvuh pervyh<>summe dvuh poslednih "

Следующий вариант

1
2
3
4
5
6
7
8
9
10
11
INPUT "vvedite chislo ", a
b = a
p = 1
posl = a MOD 10 + a \ 10 MOD 10
DO
    s = s + (a MOD 10)
    p = p * (a MOD 10)
    IF a < 100 THEN per = per + a MOD 10
    a = a \ 10
LOOP UNTIL a = 0
IF b >= 1000 THEN IF per = posl THEN PRINT "summa  dvuh pervyh=summe dvuh poslednih" ELSE PRINT "summa  dvuh pervyh<>summe dvuh poslednih "

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

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

Leave a Comment