Ответы и объяснения

2013-12-05T10:51:39+00:00
Var x: integer;
begin
write ('введите трехзначное число');
read(x);  
 for i:=1 to 3 do begin    
 d:= x mod 10;    
 x:= x div 10;    
 s1:= s1+d  
 end;  
 for i:=1 to 3 do begin    
 d:= x mod 10;    
 x:= x div 10;    
 s2:= s2+d  
 end;  
 if s1=s2 then write('счастливый') else write('не счастливый')
end.