Предмет: Информатика,
автор: totmakov2016
Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа. Free pascal
Ответы
Автор ответа:
4
var a, s,d,ed, ost: integer;
begin
a:=99;
repeat
a:=a+1;
s:= a div 100;
ost:= a mod 100;
if ost>9 then
begin
d:= ost div 10 ;
ost:=ost mod 10;
end else d:= 0;
if ost<10 then ed:=ost;
until (a<1000) and (a*a=((s+d+ed)*(s+d+ed)*(s+d+ed)));
writeln('это число: ',a:3);
end.
begin
a:=99;
repeat
a:=a+1;
s:= a div 100;
ost:= a mod 100;
if ost>9 then
begin
d:= ost div 10 ;
ost:=ost mod 10;
end else d:= 0;
if ost<10 then ed:=ost;
until (a<1000) and (a*a=((s+d+ed)*(s+d+ed)*(s+d+ed)));
writeln('это число: ',a:3);
end.
nikitka06:
наверно я у мамы условия не так переписал....
Похожие вопросы
Предмет: Русский язык,
автор: МозгСтегозавра
Предмет: Русский язык,
автор: Вероника10092006
Предмет: Английский язык,
автор: abc71
Предмет: Английский язык,
автор: zereotli4nica