Регистрация
tim2k09
06.01.2021 13:28
Информатика
Есть ответ 👍

Написать на pascal нужен только исходный код

256
306
Посмотреть ответы 1

Ответы на вопрос:

bubisolha1
bubisolha1
4,6(61 оценок)
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) равен учетверенной сумме кубов его цифр введите натуральное двухзначное число: 47 47: квадрат числа (2209) не равен учетверенной сумме кубов его цифр (1628) замечание: на самом деле лишь одно число 48 среди всех двухзначных чисел удовлетворяет условию равенства, так что достаточно просто сравнивать введенное число с 48, чтобы решить

Популярно: Информатика