Четырехзначное число,у которого первая цифра равно второй а третья четвертой,является квадратом двузначного числа. Найти эти числа.(паскаль,циклы)
Ответы:
uses crt,
var i,j:integer,
begin
for i:=1000 to 9999 do
for j:=10 to 99 do
if ((i div 1000)=(i div 100)mod 10)
and ((i div 10)mod 10=i mod 10)
and (i=j*j) then writeln(i),
end.