:))?

tự làm là nhanh nhất

ai đòng ý xin 1 ý kiến

1.

program tinhtong;

uses crt;

var s,i,n:integer;

begin

s:=0;

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

writeln ('tong cua s=',s);

readln

end.

2.

program tinhtong;

uses crt;

var i,L,s:integer;

begin

write('nhap gia tri L='); readln(L);

s:=0;

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

writeln('tong cua s=',s);

readln

end.

program bai1;

uses crt;

var i,n,s:integer;

begin

s:=0;

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

writeln(s);

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long i,n,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++) t+=i;

cout<<t;

return 0;

}

var i,s:integer;

begin

s:=0;

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

write('Tong:', s);

readln;

end.

const fi='baitap.out'

var f1:text;

i,t:integer;

begin

assign(f1,fi); rewrite(f1);

t:=0;

for i:=1 to 20 do

  t:=t+i;

writeln(f1,t);

close(f1);

end.