Can you help me ?

[jenhanson]

Ngày mai mình nộp bài kiểm rùi, các pác có thể hướng dẫn mình làm một số bài tập được ko ? Sẵn đó mình ôn thi luôn, nếu được thì very thank luôn nha!
(mới học pascal nên ko hỉu cho mấy T_T)
Bài 1: Tìm max và min của 3 số a,b,c nhập từ bàn phím !
Bài 2: Viết ct in ra màn hình ước của 1 số nguyên nhập từ bàn phím
Bài 3: Tính tổng S= 2 + 4 + 6 + .....+ 100
Bài 4: Tính tổng S= 1 + 3 + 5 +..........N
Hết rùi , hướng dẫn làm dùm nha!

[topvip9x]

Bài 1
Var a,b,max,min:integer;
Begin
Write('nhap a,b,c=');
readln(a,b,c);
max:=a;
If max<b then max:=b;
If max<c then Max:=c;
Min:=a;
If min>b then min:=b;
if min>c then Min:=c;
Write('Min=,min);
Write('Max='max);
readln;
end.

Bài 2
Var n,i:integer;
Begin
Write('Nhap n=');
Readln(n);
Writeln('Cac uoc cua ',n,'la:');
For i:=1 to n do
If n mod i = 0 then Write(i:3);
readln;
end.

Bài 3
Var s,i:integer;
Begin
s:=0;
For i:=1 to 100 do
Begin
If i mod 2 = 0 then s:=s+i;
Write('s=',s);
End;
readln;
End.

Bài 4
Var n,s,i:integer;
Begin
Write('nhap n=');
Readln(n);
s:=0;
For i:=1 to n do
If i mod 2 = 1 then
s:=s+i;
Write('s=',s);
readln;
end.

Lâu lắm mới làm lại.. hi vọng ko có sai sót

[nhokdragon94]

Pác topvip làm gần đúng (còn 1 ít sai sót ) mình sửa lại nè:
Bài 1
Var a,b,c,max,min:integer;
Begin
Write('nhap a,b,c=');
readln(a,b,c);
max:=a;
If max<b then max:=b;
If max<c then Max:=c;
Min:=a;
If min>b then min:=b;
if min>c then Min:=c;
Write('Min= ',min);
Write('Max= ',max);
readln;
end.

Bài 2
Var n,i:integer;
Begin
Write('Nhap n=');
Readln(n);
Writeln('Cac uoc cua ',n,'la:');
For i:=1 to n do
If n mod i = 0 then Write(i:3);
readln;
end.

Bài 3
Var s,i:integer;
Begin
s:=0;
For i:=1 to 100 do
If i mod 2 = 0 then s:=s+i;
Write('s=',s); {cái này néu làm như pác topvip thì sẽ in ra màn hình giá trị S 50 lần (vì pác để trong vòng lặp )}
readln;
End.

Bài 4
Var n,s,i:integer;
Begin
Write('nhap n=');
Readln(n);
s:=0;
For i:=1 to n do
If i mod 2 = 1 then
s:=s+i;
Write('s=',s);
readln;
end.

[topvip9x]

Đúng rồi... thank nhiều hen... Rút kinh nghiệm lần sau