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, чтобы решить задачу )))
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text.RegularExpressions;
namespace Math
{
public class Program
{
public static void Main(string[] args)
{
bool yes=true;
string s = "";
int q = 0;
int M, N;
Console.WriteLine("Введите m:");
M = int.Parse(Console.ReadLine());
Console.WriteLine("Введите n:");
N = int.Parse(Console.ReadLine());
int[,] m = new int[M,N];
for (int i = 0; i < M; i++)
{
for (int j = 0; j < N; j++)
{
Console.Write("[{0},{1}] : ",i,j);
m[i, j] = int.Parse(Console.ReadLine());
s += m[i, j] + "\t";
if (yes & m[i, 0] != m[i, j]) yes = false;
}
if (yes) q++;
s += "\n";
yes = true;
}
Console.WriteLine(s+"\nответ : "+q+" строк");
Console.ReadKey(true);
}
}
}