Почему не выдает числа?

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.

Question

Информатика

Иосиф

8 июля, 13:31

Почему не выдает числа?

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.

+1

Ответы (1)

Знаете ответ на вопрос?

Селиван · Answer 1

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.

Почему не выдает числа?uses crt;var i:integer;beginfor i: = 100 to 999 doif 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)) thenwriteln (i) ;end.

Почему не выдает числа?

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.