Bài tập Pascal!!!

Bài 1:
Tính tổng S=1+2+3...+n (n nhập từ bàn phím)

Bài 2:
Tính tổng S=1/a + 1/a+1 + 1/a+2 + .... + 1/a+n (a,1 nhập từ bàn phím)

Bài 3:
Nhập 2 số nguyên m,n (m<n). Tính và đưa ra màn hình tổng các số chia hết cho 3 hoặc 5

Bài 4:
Tinh S= 1*1 + 1*2 +1*3 +....1*10 + 2*1 + 2*2 +.....m*n
(m,n nhập từ bàn phím)

Bài 5:
Nhập n số từ bàn phím, tính tổng n só đó.

Giải bài 1:

program bt1;
ues crt;
var n,i,S: interger;
Begin
clrscr;
write('nhap gia tri n=');
readln(n);
S:=0;
for i:=1 to n do
S:=S+i;
write(S);
readln;
End.


Giải bài tập 2:

Program bt2;
uses crt;
var S:real;
a,n,i: interger;
Begin
clrscr;
write('nhap gia tri n=');
readln(n);
write('nhap gia tri a=');
readln(a);
S:=0;
for i = 0 to n do
S:= S+ 1/a+i
write('S=',S)
readln;
End.

Bài 4 và bài 5 ra không cụ thể.
Nhất là bài 4 chắc có gì thiếu. ngày mai đến hỏi lại cô giáo
Còn bài 3 Phan Tiến làm nốt nhé.

ôi bài tập kìa
ôi đáp án kìa
hải Dương nhanh tay nhanh mắt " cá chép" phát cảm ơn chị Thuý Anh và ông Tiến nhé
nghiên cứu 2 bài còn lại đi nào
thương thì thương cho chót

dung hok vay

nghĩ đến cảnh sáng mai học mà choáng quá
mà sao khoa mình có 1 mình lớp mình mà thời khoá biểu thay đổi liên tục vậy nhỉ ???? <-- cái này phải lên phòng công tác HS - SV thôi hjc :-s

Thôi đành chịu chứ làm sao được bây giờ........Lịch học thì liên tiếp nối tiếp đau thương...các môn học cứ thế nối tiếp nhau thành 1 cái thời khoá biểu khó nhằn........
Thanks chị Pikachu & thằng bạn nha.......Cá chép khẩn trương!!

Hjx! mai phải nộp ra giấy ah!
Vậy cá chép mau thôi!

cám ơn 2 đứa nhé, nhưng mệt quá ko chép được rồi, cả ngày đi học, đi học về dạy nhạc, tưởng được nghỉ ai ngờ ông anh lại đến nhờ làm mấy bài hát,bây giờ ko thể mở mắt mà chép được cái ji nữa roài

Bài 4 và 5 đề ra ko sát. ko phải làm
Mai đến lớp hỏi lại cô cho rõ.
okie

ô có phải nộp bài không chị Thuý Anh ????