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