1/ Var i,n,sla,sld:integer;

begin

readln(n);

sla:=0; sld:=0;

for i:=1 to n do

if i < 0 then sla:=sl+1;

writeln('so am', sl);

if i > 0 then sld:=sld+1;

writeln(sld);

readln;

end.

b)

i:=2; j:= j+3 = 0+3 =3

i:=3; j:= j+3 = 3+3 =6

i:=4; j:=j+3 = 6+3 = 9

..

i:=7; j:=j+3 = 15+3 = 16

nếu ước chung thì phải là "y có cùng ước chung" ? chứ sao "y có là ước chung của x" ?

Type mang=array [1..20] of integer;

var a:mang; i,n,k:integer;

begin

Writeln('nhap n');

readln(n);

for i:=1 to n do

begin

writeln(' nhap pt thu', i);

readln(a[i]);

end;

for i:=1 to n do

begin

k:=2;

while (k<= a[i]) and ( a[i] mod k <>) do

k:=k+1;

if k:= a[i] then writeln(a[i]);

end;

readln;

end,

Var i,n,s:integer;

begin

readln(n); s:=0;

for i:=1 to n do

s:=s+i;

writeln(s);

readln;

end.

Var i,n,s:integer;

begin

readln(s,n);

s:=0;

n:=0;

if n <= 5 then n:=n+1;

s:=s+n;

writeln(s);

readln;

end.

Var i,n,s:integer;

begin

readln(n); s:=0;

for i:=1 to n do

if i mod 2 <> 0 then s:=s+i;

writeln(s);

readln;

end.

- Có nhiều cuộc vận động núi lớn, phần lớn lảnh thổ nước ta trở thành đất ;iên

- Sinh vạt phát triển mạnh mẽ

- Xuất hiện khoáng sản phi kim loại, những khối núi đá vôi và bể than đá

- ở cuối gia đoạn, do bị tác động ngoại lực, bề mặt hạ thấp san bằng

a,  2015^2 - 2014^2

=(2015-2014)(2015+2014)

=1.4029

=4029

b,  1^2 - 2^2 + 3^2 - 4^2 + ......+  99^2 - 100^2

=(1-2)(1+2)+(3-4)(3+4)+...+(99-100)(99+100)

=-(1+2)-(3+4)-...-(99+100)

=-1-2-3-4-...-99-100

=(-1-100).100:2=-5050