Задача: Дано 2-х значное число, опредилить равен ли квадрат этого чиста учетверенной сумме кубов его цифр. Вопрос: Как решить эту задачу в Free Pascal?

Question

Информатика

Агап

14 января, 00:21

Задача: Дано 2-х значное число, опредилить равен ли квадрат этого чиста учетверенной сумме кубов его цифр. Вопрос: Как решить эту задачу в Free Pascal?

+3

Ответы (2)

Знаете ответ?

Климентий · Answer 1

var a, a1, a2, k, l:integer;

begin

writeln ('Введите число а')

read (a) ;

a1:=a mod 10;

k:=a div 10;

a2:=k mod 10;

k:=a*a;

l:=4 * (a1*a1*a1+a2*a2*a2) ;

if (k=l) then

writeln ('Равен')

else writeln ('Нет') ;

end.

Артамонка · Answer 2

Var N, sum: integer;

begin

write ('Введите число: ') ; readln (N) ;

sum : = ((N div 10) * (N div 10) * (N div 10) + (N mod 10) * (N mod 10) * (N mod 10)) * 4;

if sum = sqr (N) then writeln ('Равно')

else writeln ('Не равно') ;

readln;

end.