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ă resursele disponibile v-au fost de ajutor. Pentru întrebări sau asistență suplimentară, nu ezitați să ne contactați. Ne bucurăm să vă revedem în curând și vă invităm să ne salvați în lista de site-uri preferate!