Số chẵn:

Var i,n,S: longint;

Begin

Readln(n);

For i:=1 to n do 

If i mod 2 = 0 then S:=S+i

Write(S);

Readln

End.

Số lẻ:

Var i,n,S: longint;

Begin

Readln(n);

For i:=1 to n do 

If i mod 2 = 1 then S:=S+i

Write(S);

Readln

End.

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t1,t2;

int main()

{

cin>>n;

t1=0;

t2=0;

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

{

cin>>x;

if (x%2==0) t1+=x;

else t2+=x;

}

cout<<t1<<" "<<t2;

return 0;

}

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

n:=1;

s:=0;

while (n<=10000) do 

begin

n:=n+2;

s:=s+1/n;

end;

writeln(s:4:2);

readln;

end.

tk:

cảm nhận của em khi nghe bài hát Làng tôi của nhạc sĩ Văn Cao: bài hát rât vui nhộn, khi nghe bài hát thì cảm thấy yêu quê hương dất nước,...

Bài hát Lượn tròn, lượn khéo của nhạc sỹ Văn Chung gợi tả những cánh chim bồ câu bay liệng trên bầu trời xanh như muốn vui cùng đôi tay mềm mại của những em bé. Hình ảnh đó thật duyên dáng, dễ thương. Giai điệu lúc cao, lúc trầm như những cánh chim hòa bình cùng đàn em ngây thơ múa ca nhịp nhàng, uyển chuyển.

def sum_and_diff(m, n):
    sum = m + n
    diff = m - n
    return sum, diff

# sử dụng chương trình con
a = 5.6
b = 2.3
result = sum_and_diff(a, b)
print("Tổng và hiệu của", a, "và", b, "là", result)

b: uses crt;

begin

clrscr;

writeln(sqr(15+5)*sqr(6+4)*(6+4));

readln;

end.

Uses crt;

var i,t: integer;

begin clrscr;

i:=0;

while(i<=120) do begin

i:=i+1;

t:=t+i;

end;

write(t);

readln;

end.