viết chương trình in ra màn hình tổng của n chữ số với n nhập vào bằng bàn phím.
2 câu trả lời
program bt1;
uses crt;
var i,n,s: integer;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('tong la:',s);
readln
end.
var
a:array:[1..1000]of longint;
n,i,d:integer;
begin
write('nhap n=');readln(n);
d:=0;
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
d:=d+a[i];
end;
writeln('tong n chu so=',d);
readln;
end.
Câu hỏi trong lớp
Xem thêm