FORUM
Pagina de start a forumului eggzit.3xforum.ro 		Lista Forumurilor Pe Tematici
FORUM | Reguli | Inregistrare | Login

POZE FORUM

Nu sunteti logat. 		Nou pe simpatie:
Laura Petrei din Braila
Femeie
24 ani
Braila
cauta Barbat
27 - 65 ani
FORUM / Forum Nou / 11  
Autor
Mesaj Pagini: 1
eggzit
Username: 6R9PKQUKKU

Inregistrat: acum 20 ani
Postari: 215
{sa se determ maxim cinci cifre cu proprietea ca sunt
egale cu patratul sumei cifrelor lor. patrat.out}
program unusprezece;
var i:longint;
f:text;
function suma(n:integer):integer;
var s:integer;
begin
s:=0;
while n>0 do begin
s:=s+n mod 10;
n:=n div 10;
end;
suma:=s; end;
begin
assign(f,'patrat.out');
rewrite(f);
for i:=1 to 99999 do
if i=sqr(suma(i)) then write(f,i,' ');
close(f);
end.
pus acum 18 ani
   
Pagini: 1  

Mergi la