2 задача. Программа анализирует введѐнное пользователем целое число Х и по результатам проверки выводит - id1251683020201117 от Morkvap5 17.11.2020 15:57

Question

Информатика: 2 задача. Программа анализирует введѐнное пользователем целое число Х и по результатам проверки выводит на экран сообщения: - если Х=0: «Число равно нулю»; - «Число чѐтное»; - «Число не чѐтное»; Внимание! В программе обязательно должно быть реализовано вложенное ветвление. Внимание! Для проверки чѐтности используйте функцию mod (если x mod 2 = 0 значит число чѐтное написать программу ​

Morkvap5 · 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 ответил