Определите, что будет выведено в результате выполнения алгоритма

Question

Информатика: Определите, что будет выведено в результате выполнения алгоритма

goldlena1979 · Accepted Answer

Var   d1,d2,n:integer;   k,s:longint; begin   Write( Введите натуральное двухзначное число: ); Read(n);   d1:=n div 10; d2:=n mod 10;   k:=sqr(n); s:=4*(d1*sqr(d1)+d2*sqr(d2));   Write(n, : );   if k=s then Writeln( Квадрат числа ( ,k,       ) равен учетверенной сумме кубов его цифр )   else Writeln( Квадрат числа ( ,k,       ) не равен учетверенной сумме кубов его цифр ( ,s, ) ) end. Тестовое решение: Введите натуральное двухзначное число: 48 48: Квадрат числа (2304) равен учетверенной сумме кубов...

MOGZ ответил