M.n lm giúp mjk vs ạ hứa vote 5 * Viết chương trình tính tổng 1+2+3+4...t là giá trị do người sử dụng nhập
2 câu trả lời
program oken;
uses crt;
var s,t,i:longint;
begin
clrscr;
write('nhap so T: '); readln(t);
s:=0;
for i:=1 to t do
s:=s+i;
writeln('Tong cac so tu 1 den ',t,': ',s);
readln;
end.
Program BTH;
uses crt;
var t,s,i:longint;
Begin
clrscr;
write('Nhap t: ');readln(t);
For i:=1 to t do
s:=s+i;
writeln('Tong day so tren la: ',s);
readln;
end.
Câu hỏi trong lớp
Xem thêm