Viết chương trình nhập vào một số nguyên x. Hãy xác định xem x có phải tổng của các số tự nhiên liên tiếp bắt đầu từ 1 hay không? Input: Một số nguyên dương x Output: In ra YES/NO Ví dụ Input Output 10 YES 14 NO
2 câu trả lời
uses crt;
var x,n:longint;
begin
clrscr;
readln(x);
n:=trunc(sqrt(2*x));
while n*(n+1)/2 < x do inc(n);
if n*(n+1)/2 = x then writeln('YES')
else writeln('NO');
readln;
end.
program bai_giai;
uses crt;
var x,n,t:longint;
begin
clrscr;
readln(x);
t:=0; n:=0;
while t<x do
begin
n:=n+1;
t:=t+n;
end;
if t=x then write('YES') else write('NO');
readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
