uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=15 to 25 do 

  s:=s+i;

writeln(s);

readln;

end.

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

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

writeln(s);

readln;

end.

Program Tong_cac_so_tu_nhien;

Uses CRT;

Var i,d: Byte;

Begin

d:=0;

For i = 10 to 99 Do d:=d+i;

Writeln('Tong cac so tu nhien tu 10 den 99 la ',d);

End.

Uses Crt;

Var i,S:longint;

Begin

Clrscr;

Readln(i,S);

For i:=15 to 25 do S:=S+i

Write(S);

Readln

End.

#include <bits/stdc++.h>

using namespace std;

int s,i;

int main()

{

s=0;

for (i=15; i<=25; i++) s+=i;

cout<<s;

return 0;

}

Program HOC24;

Uses crt;

var i,j: integer;

j:=1; i:=0;

while(j<=50) do

begin

j:=j+1;

if(j mod 2=0) then i:=i+j;

end;

writeln(i);

readln;

end.

program tinhtong;

uses crt;

var i, n, s: integer;

begin clrscr;

Write('N so tu nhien dau tien la: ');

readln(n);

s:=0;

i:=1;

while i<=n do begin

s:=s+i;

i:=i+1;

end;

writeln('Tong cac so la: ',s);

readln

end.

program tinhtong;

uses crt;

var i,n,t:longint;

a:array[1..100]of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do 

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

t:=0;i:=1;

repeat

t:=t+i;

i:=i+1;

until i=n;

writeln('tong cua ca so tren la:',t);

writeln('trung binh cua cac so tren la:',t/n);

readln;

end.