Ответ:https://frillycarelessdatamining.crosser23.repl.run/
Объяснение:
Var i:integer;
begin
for i:=100 to 999 do
if sqr(i div 100) = i div 10 mod 10 + i mod 10 then writeln(i);
end.
Результат:
101
110
204
213
222
231
240
309
318
327
336
345
354
363
372
381
390
479
488
497
21211 это все (просто просят не меньше 20 символов :) )
128=2^7 значит 7 бит весит 1 символ
80*60=4800 символов
4800*7=33600 бит=4200 байт=4,1 килобайт