Жила была девочка Настя.Она очень хотела научиться рисовать.В школе на уроках все смеялись над её рисунками и от того она приходила домой и плакала.Как то раз Настя пришла домой вся заплаканная,включила компьютер и тут на экран выскочил весёлый человечек:
-Не плачь ,милая девочка!Я тебе!Я живу в твоём компьютере и всегда с умилением наблюдаю за твоими занятиями.Пойдём со мной!Не бойся !
Настя приложила свою руку к компьютеру и тут же оказалась по ту сторону экрана
Дальше, Анастасия, придумай пару предложений о путешествии их,если понравилась идея и на прощание человечек подарит Насте программу граф.редактор.И всё у неё будет хорошо
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, чтобы решить задачу )))
Жила была девочка Настя.Она очень хотела научиться рисовать.В школе на уроках все смеялись над её рисунками и от того она приходила домой и плакала.Как то раз Настя пришла домой вся заплаканная,включила компьютер и тут на экран выскочил весёлый человечек:
-Не плачь ,милая девочка!Я тебе!Я живу в твоём компьютере и всегда с умилением наблюдаю за твоими занятиями.Пойдём со мной!Не бойся !
Настя приложила свою руку к компьютеру и тут же оказалась по ту сторону экрана
Дальше, Анастасия, придумай пару предложений о путешествии их,если понравилась идея и на прощание человечек подарит Насте программу граф.редактор.И всё у неё будет хорошо
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, чтобы решить задачу )))