Răspuns :
program PatratulSumaCif;
var num, cif, sumacif, m: integer;
begin
writeln('numerele pt care patratul sumei cifrelor este egal cu numarul:');
for num:=1 to 9999 do
begin
m:=num;
sumacif:=0;
while m > 0 do
begin
cif:= m mod 10;
sumacif:=sumacif + cif;
m:= m div 10;
end;
if sqr(sumacif)=num then write(num, ' ');
end;
end.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.