viết trương trình nhập vào số nguyên x từ bàn phím in ra màn hình tổng số x số tự nhiên đầu tiên

2 câu trả lời

program ct;

uses crt;

var x,i,s:integer;

begin

clrscr;

write('nhap x:=');readln(x);                

s:=0;

for i:=1 to x do s:=s+i;

writeln('tong la:',s);

readln

end.

uses crt;
var x,t,i : integer;
begin clrscr;    t:=0;
write('Nhap x:'); readln(x);
for i:=1 to x do t:=t+i;
write('Tong la :',t);
readln
end.