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.
//////////////////////////////////////////
Test:
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.
Học tốt!