Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
ddellog
0 / 0 / 0
Регистрация: 19.09.2017
Сообщений: 5
#1

Определить, равен ли квадрат этого числа сумме кубов его цифр

19.09.2017, 12:55. Просмотров 932. Ответов 4
Метки нет (Все метки)

Дано целое трехзначное число N. Определить, равен ли квадрат этого числа сумме кубов его цифр
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.09.2017, 12:55
Ответы с готовыми решениями:

Дано трехзначное число.Определить,равен ли квадрат этого числа сумме кубов его цифр
(ветвление)1)Дано трехзначное число.Определить,равен ли квадрат этого числа...

Равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа
Вывести на экран 1 или 0 в зависимости от того, равен ли квадрат заданного...

Найдите трехзначные числа, равные сумме кубов своих цифр. Подсчет суммы кубов организовать в виде функции
Найдите трехзначные числа, равные сумме кубов своих цифр. Подсчет суммы кубов...

Поиск двузначных чисел, таких, что если к сумме цифр этого числа прибавить квадрат этой суммы, то получится само число
Написать программу поиска двузначных чисел, таких, что если к сумме цифр...

Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр числа
Создать из определить, равен ли квадрат заданного трехзначного числа кубу суммы...

4
AndrewLis
5 / 5 / 12
Регистрация: 15.12.2016
Сообщений: 23
19.09.2017, 16:08 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Sq_Cub;
 
var
  N: integer;
  Sq, Cub: real;
  Ns: string;
 
begin
  N := 1;
  Ns := IntToStr(N);
  Sq := Power(N, 2);
  for var i := 1 to Ns.Length do Cub += Power(Ord(Ns[i]) - 48, 3);
  Write(Sq = Cub);
end.
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3861 / 2847 / 3632
Регистрация: 05.06.2014
Сообщений: 13,962
19.09.2017, 16:10 #3
Дано трехзначное число.Определить,равен ли квадрат этого числа сумме кубов его цифр
0
Puporev
Модератор
54374 / 41960 / 28983
Регистрация: 18.05.2008
Сообщений: 98,837
19.09.2017, 16:30 #4
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

По ссылке неверное решение, нужно
Pascal
1
2
3
4
5
6
7
8
9
b:=a;
s:=0;
while b>0 do
 begin
  s:=s+sqr(b mod 10)*(b mod 10);
  b:=b div 10;
 end;
if a*a=s*s*s then write('Квадрат числа=сумме кубов его цифр')
else write('Квадрат числа<>сумме кубов его цифр');
Хотя ответ все равно всегда будет отрицательный. Когда-то давно написали неверное условие задачи и с тех пор ленивые преподы переписывают ее и задают, нет чтобы самим проверить ее нелепость.

Добавлено через 4 минуты
А проверить можно так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var a,b,s,k:integer;
begin
k:=0;
for a:=100 to 999 do
 begin
  b:=a;
  s:=0;
  while b>0 do
   begin
    s:=s+sqr(b mod 10)*(b mod 10);
    b:=b div 10;
   end;
 if a*a=s*s*s then
  begin
   writeln('Квадрат числа ',a,'=сумме кубов его цифр');
   k:=1;
  end;
 end;
if k=0 then write('Таких трехзначных чисел нет');
end.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3805 / 2488 / 2053
Регистрация: 22.11.2013
Сообщений: 6,919
20.09.2017, 14:04 #5
Другой вариант проверки:
Pascal
1
2
3
4
5
6
7
8
9
var a, b, c, k: Integer;
begin
  for a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do
    if Sqr(a*100+b*10+c) = Sqr(a)*a+Sqr(b)*b+Sqr(c)*c then begin
      WriteLn('Квадрат числа ',a*100+b*10+c,' равен сумме кубов его цифр');
      Inc(k);
    end;
  if k=0 then WriteLn('Таких трехзначных чисел нет');
end.
Если бы просили числа, которые сами равны сумме кубов цифр, то среди 3-значных таких 4:
Pascal
1
2
3
4
5
6
7
8
9
var a, b, c, k: Integer;
begin
  for a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do
    if a*100+b*10+c = Sqr(a)*a+Sqr(b)*b+Sqr(c)*c then begin
      WriteLn('Число ',a*100+b*10+c,' равно сумме кубов его цифр');
      Inc(k);
    end;
  if k=0 then WriteLn('Таких трехзначных чисел нет');
end.
Добавлено через 8 минут
По поводу проверок выше
Pascal
1
if a*a=s*s*s then
это квадрат числа равен кубу суммы кубов его цифр, нужная проверка выглядит попроще
Pascal
1
if a*a=s then
но сути это никак не меняет, таких трехзначных чисел действительно нет.
0
20.09.2017, 14:04
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.09.2017, 14:04

Определить, равен ли квадрат заданного трехзначного натурального числа кубу суммы цифр числа
2. Определить, равен ли квадрат заданного трехзначного натурального числа кубу...

На заданном числовом промежутке требуется найти все числа, кубический корень из которых равен сумме его цифр
для каждого их которого выполняется условие, кубический корень из числа равен...

Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа
Вывести на экран 1 или 0 в зависимости от того, ровный квадрат заданного...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru