Помогите составить программу печатающую значение true и false

Квадрат заданного трехзначного числа равен Кубу суммы цифр этого числа

Question

Информатика

Аля

3 июля, 09:16

Помогите составить программу печатающую значение true и false

Квадрат заданного трехзначного числа равен Кубу суммы цифр этого числа

+4

Ответы (1)

Знаете ответ на вопрос?

Лаура · Answer 1

Var A, B:integer;

Begin

Write ('Введите трёхзначное число: ') ;

ReadLn (A) ;

B: = (A div 100) + ((A div 10) mod 10) + (A mod 10) ;

WriteLn (A*A=B*B*B)

End.

Помогите составить программу печатающую значение true и falseКвадрат заданного трехзначного числа равен Кубу суммы цифр этого числа

Помогите составить программу печатающую значение true и false

Квадрат заданного трехзначного числа равен Кубу суммы цифр этого числа