Дано трёхзначное число. Определить: а) Является ли сумма цифр двузначным числом;б) Является ли произведение его цифр трёхзначным числом;в) Кратна ли сумма его цифр числу a. (число a вводится пользователем с клавиатуры) — QBasic(Бейсик)

disel


Предусмотреть чтобы программа работала только с трёхзначным числом.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
CLS
INPUT "vvedite n"; n: INPUT "vvedite a"; a: p = 1
DO
    s = s + (n MOD 10): p = p * (n MOD 10): n = n \ 10
LOOP UNTIL n = 0
PRINT "s="; s, "p="; p
IF s MOD a = 0 THEN PRINT "summa cifr kratna 'a'"
DO
    sj = sj + 1: s = s \ 10
LOOP UNTIL s = 0
IF sj = 2 THEN PRINT "summa cifr - dvuznachnoe chislo"
DO
    pj = pj + 1: p = p \ 10
LOOP UNTIL p = 0
IF pj = 3 THEN PRINT "proizvedenie cifr - trehznachnoe chislo"
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
do
input "vvedite 3-znachnoe chislo ",b
loop until b>99 and b<1000
input"vvedite chislo a ",a
s=b mod 10+b\100+b\10 mod 10
p=(b mod 10)*(b\100)*(b\10 mod 10)
print"summa ";
if s<10 then print"ne ";
print "2-znachnoe chislo"
print"proizvedenie ";
if p<100 then print"ne ";
print "3-znachnoe chislo"
print "summa ";
if s mod a<>0 then print"ne ";
print "kratna a"

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

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

Leave a Comment