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.
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.