Đề: Nhập số nguyên N, tính tổng các số từ 1 ----> N S=1+2+3+4+5 GIÚP MÌNH VỚI Ạ
2 câu trả lời
program ct;
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n:=');readln(n);
s:=0;
for i:=1 to 5 do s:=s+i;
writeln('tong la:',s);
readln
end.
$#Zen$
uses crt;
var n:longint;
begin
clrscr;
write('nhap n:');readln(n);
write('s=',(n+1)*n div 2);
readln
end.
Câu hỏi trong lớp
Xem thêm