Почему не выдает числа? 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.

Невидимка003 Невидимка003    1   16.07.2019 04:00    1

Ответы
hren4 hren4  03.10.2020 05:17
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика