Kiểm tra xem số đó có phải là số hạnh phúc hay không? Biết số hạnh phúc là số có 2k chữ số tổng k chữ số đầu = tổng k chữ số cuối
Kiểm tra xem số đó có phải là số hạnh phúc hay không? Biết số hạnh phúc là số có 2k chữ số tổng k chữ số đầu = tổng k chữ số cuối
program kiemtra;
uses crt;
var n:longint;
s:string;
i,t1,t2,so:byte;
begin
clrscr;
write(‘Nhap so can kiem tra;
str(n,s);
t1:=0;
for i:=1 to length(s) div 2 do
begin
val(s[i],so);
t1:=t1+so;
end;
t2:=0;
for i:=length(s)+1 to length(s) do
begin
val(s[i],so);
t2:=t2+so;
end;
if t1=t2 then write(‘La so hanh phuc’)
else write(‘Khong phai so hanh phuc’);
readln;
end.