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

Question

Информатика

Сарра

31 января, 08:30

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

+2

Ответы (2)

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

Серапион · Answer 1

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.

Ленин · Answer 2

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.