Предмет: Информатика,
автор: Polundra32
Почему не выдает числа?
uses crt;
var i:integer;
begin
for i:= 100 to 999 do
if i=((sqr(i div 100)*(i div 100)) +( (sqr(i div 10)mod 10)*(i div 10)mod 10) + (sqr(i mod 10)*i mod 10)) then
writeln (i);
end.
мышшшь:
если не канает попробуй ord((sqr(i div 100)*(i div 100)) +( (sqr(i div 10)mod 10)*(i div 10)mod 10) + (sqr(i mod 10)*i mod 10))
for i:= 100 to 999 do
begin
a:=i div 100;
b:= (i div 10) mod 10;
c:= i mod 10;
z:=(a*a*a+b*b*b+c*c*c);
if i=z then
writeln (i);
end;
end.
Ответы
Автор ответа:
0
var i:integer;
begin
for i:=100 to 999 do
if i=sqr(i div 100)*(i div 100)+sqr((i div 10)mod 10)*((i div 10) mod 10)+
sqr(i mod 10)*(i mod 10) then writeln(i)
end.
begin
for i:=100 to 999 do
if i=sqr(i div 100)*(i div 100)+sqr((i div 10)mod 10)*((i div 10) mod 10)+
sqr(i mod 10)*(i mod 10) then writeln(i)
end.
Похожие вопросы
Предмет: Алгебра,
автор: wood24
Предмет: Математика,
автор: petrusinnikita098
Предмет: Українська література,
автор: diniil3455
Предмет: Қазақ тiлi,
автор: kanatakbota7
Предмет: Алгебра,
автор: еанеа