Question

Вывести все 3хзначные числа, квадрат которого заканчивается этим же числом (например: 376^2=141376)

Answer 1

Pascal (гдето так...)

 

program treska;

var a,i,k,b,b2,b3:integer;

begin

for i:=100 to 999 do

begin 

a:=sqr(i); 

k:=a-i;

b:=a-k;

if i=b then write (i,'    ');

end;

readln

end.