Question

Составьте программу, которая выводит на экран из всех трехзначных чисел только те, у которых квадрат первой цифры равен сумме двух остальных.

Answer 1

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

Answer 2

что такое sqr?

Answer 3

Квадрат. можно написать (i div 100)*(i div 100)