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 pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!