Lista de Exercicios

3. O número 3025 possui a seguinte característica: 30 + 25 = 55. O quadrado de 55 é 3025. Monte um programa que pesquise e mostre em tela todos os números de 4 algarísmo que apresentem esta característica.

program P3;
uses crt;
var
i : word;
function verif(n : integer) : boolean;
var
a : byte;
begin
a := trunc (n div 100);
if n = sqr( a + (n - a * 100) ) then
verif := true
else
verif := false;
end;
{programa principal}
begin
clrscr;
for i := 1000 to 9999 do
if verif (i) then
writeln (i);
repeat until keypressed;
end.

Para retornar a tela principal clique aqui.