Определить равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
CLS
INPUT "Chislo="; a
s=0: i=0: c=a
DO WHILE c>0
 s=s+c MOD 10
 c=c\10
 i=i+1
LOOP
IF i=3 THEN
 IF (a^2)=(s^3) THEN
  PRINT "Kvadrat zadannogo trehznachnogo chisla = kubu summi cifr etogo chisla"
 ELSE
  PRINT "Kvadrat zadannogo trehznachnogo chisla ne raven kubu summi cifr etogo chisla"
 END IF
ELSE
 PRINT "Vvedennoye chislo ne trehznachnoye"
END IF

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

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

Leave a Comment