d)Tham khảo!

uses crt;
var n,i:integer;  s:real;
begin
clrscr;
write('Nhap tu ban phim vao n:');
readln(n);
s:=0; i:=1;
while i<=n do begin
s:=s+1/i;i:=i+1;
end;
write('Tong cua cac so la:',s:2:3);
readln;
end.

cả này lun

uses crt;
var n,i:integer;  s:longint;
begin
clrscr;
write('Nhap tu ban phim vao n:');
readln(n);

s:=0;
for i:=0 to n do if i mod 2=0 then s:=s+i;
write('Tong cac so chia het cho 2=',s);
readln;
end.

này cũng vậy nha 

uses crt;
var n,i:integer;  s:longint;
begin
clrscr;
write('Nhap tu ban phim vao n:');
readln(n);

s:=0;
for i:=0 to n do if i mod 2<>0 then s:=s+i;
write('Tong cua cac so khong chia het cho 2=',s);
readln;
end.

thêm cho mình phần s:=0; nha quên.

uses crt;
var n,i:integer;  s:longint;
begin
clrscr;
write('Nhap tu ban phim vao n:');
readln(n);
s:=0;
for i:=0 to n do s:=s+i;
write('Tong cua cac so =',s);
readln;
end.

c)Tham khảo!

uses crt;
var n,i:integer;  s:longint;
begin
clrscr;
write('Nhap tu ban phim vao n:');
readln(n);
for i:=0 to n do if i mod 2<>0 then s:=s+i;
write('Tong cua cac so khong chia het cho 2=',s);
readln;
end.

b)Tham khảo!

uses crt;
var n,i:integer;  s:longint;
begin
clrscr;
write('Nhap tu ban phim vao n:');
readln(n);
for i:=0 to n do s:=s+i;
write('Tong cua cac so =',s);
readln;
end.

Tham khảo!

uses crt;
var n,i:integer;  s:longint;
begin
clrscr;
write('Nhap tu ban phim vao n:');
readln(n);
for i:=0 to n do if i mod 2=0 then s:=s+i;
write('Tong cac so chia het cho 2=',s);
readln;
end.

chỉ làm câu 3 thui đko?

15 và 70 á bạn tôi sai

mình có thêm 1 chút và nó ra được 15 và 80 á bạn