Предмет: Информатика,
автор: znmen22
Составить программу вычисления двузначного числа, сумма кубов цифр которого равна n.
Ответы
Автор ответа:
1
Var
a,b,k:byte;
n:integer;
Begin
Write('n = ');ReadLn(n);
k:=0;
For a:= 1 to 9 do
For b:= 0 to 9 do
if a*a*a+b*b*b = n then
Begin
Write(a,b,' ');
k:=k+1
End;
if k = 0 then Write('Таких чисел не существует.')
End.
a,b,k:byte;
n:integer;
Begin
Write('n = ');ReadLn(n);
k:=0;
For a:= 1 to 9 do
For b:= 0 to 9 do
if a*a*a+b*b*b = n then
Begin
Write(a,b,' ');
k:=k+1
End;
if k = 0 then Write('Таких чисел не существует.')
End.
Автор ответа:
1
// PascalABC.NET 3.2, сборка 1456 от 26.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var s:=Range(10,99).Where(x->(Power(x div 10,3)+Power(x mod 10,3)=n));
if s.Count>0 then s.Println
else Writeln('Нет таких чисел')
end.
Пример
n= 9
12 21
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var s:=Range(10,99).Where(x->(Power(x div 10,3)+Power(x mod 10,3)=n));
if s.Count>0 then s.Println
else Writeln('Нет таких чисел')
end.
Пример
n= 9
12 21
Похожие вопросы
Предмет: Французский язык,
автор: nastenkamilaska5
Предмет: История,
автор: mokinstasic
Предмет: Химия,
автор: kryvoyabama
Предмет: Алгебра,
автор: natasha752019
Предмет: Другие предметы,
автор: urashitova2008