Mọi người giúp em với. Em hứa sẽ vote cho 5 sao
Đề bài: Viết phương trình cho số nguyên dương n là số tổng nếu n là tổng của k số nguyên dương liên tiếp đầu tiên. Nhập nguyên dương n. Cho biết n có phải là số tổng hay không? Nếu có xuất ra số k, ngược lại xuất ra 'Khong'.
Input: số n nhập từ bàn phím
Output: Nếu có số k, viết số k ra. Nếu không có, ghi 'Khong'
VD: N là 10 thì tổng của k số nguyên dương đầu tiên liên tiếp là 1+2+3+4=10. Nên k là số cuối cùng:4
VD2: N là 12 thì tổng của k số nguyên dương đầu tiên liên tiếp là 1+2+3+4+5>12. Nên không có k, ghi 'Khong'
uses crt; var tong,n,k:longint; begin clrscr; write('n=');readln(n); tong:=0; while tong<n do begin inc(k); inc(tong,k); end; if tong=n then writeln('k=',k) else writeln('Khong'); readln end.
program ct; uses crt; var n,k,i,S:longint; begin clrscr; write('Nhap so n: '); readln(n); for i:=1 to n do begin S:=S+i; inc(k); if (S>=n) then break; end; if S=n then write(k) else write('Khong'); readln; end.