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

Question

Информатика

Ланя

4 марта, 11:02

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

+4

Ответы (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.