Задание:
Вывести все 3 хзначные числа, квадрат которого заканчивается этим же числом (например: 376^2=141376)
Решение:
Pascal (гдето так…) program treska; var a,i,k,b,b2,b3: integer; beginfor i: =100 to 999 dobegin a: =sqr (i); k: =a-i; b: =a-k; if i=b then write (i,'); end; readlnend.
Знаете другой ответ?