Объяснение:
15682= 10000+5000+600+80+2
Монитор (т); Е; клавиатура (к); сканер (с); принтер (т)
текст (Г)
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.
===== PascalABC.NET =====
begin
// неверные варианты вызовут ошибку при выполнении
var mp := Arr('водород', 'гелий');
var mn := Arr('протий','дейтерий','тритий','гелий-3','гелий-4');
var (e, p, n) := ReadInteger3;
Writeln(e = p ? 'атом' : 'ион');
Writeln(mp[p - 1]);
Writeln(p = 1 ? mn[n] : mn[n + 2])
end.