Giúp mình lập trình max/min và vòng lập For

[fullluis]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Ai biết thì giúp mình lập trình trong pascal những bài tin học lập trình này với đề bài sau
1.Nhập số nguyên n.Tính tích các số bị nhập
2.Nhập số nguyên n,in ra màn hình các ước số của n
3.Cho 2 số a,b.Tìmmax,min của a,b
4.CHo 3 số a,b,c.Tìm max,min của a,b,c
5.Cho 4 số a,b,c,d.Tìm max,min của 4 số đó
6.Nhập 3 số a,b,c . A,b,c có phải 3 cạnh của 1 tam giác không . Nếu có thì tam giác đó là tam giác gì?
7.Nhập m và n và thông báo 'đúng' nếu m và n cùng lẻ,ngược lai thông báo 'sai'

 

[megamanxza]

Bài 1 bạn ra đề mình không hiểu! Ý bạn là nhập mảng số nguyên có n phần tử phải không? Vậy thì:

Uses crt;
var a: array [1..1000] of integer;
      n, i, tich: longint;
begin
clrscr;
write ('Nhap so N la so phan tu: '); readln (n);
tich:=1;
for i:= 1 to n do
 begin
write ('Nhap phan tu thu ',i,': '); readln (a[i]);
tich:=tich*a[i];
end;
write ('Tich cua cac so vua nhap la ',tich);
readln
end.

Bài 2:
[COLOR=blue][B]
Uses crt;
var n, i: integer;
begin
clrscr;
write ('Nhap so N: '); readln (n);
write ('Cac uoc so cua N: ')'
for i:= 1 to n do
  if n mod i = 0 then write (i,' ');
readln
end.

[/B][/COLOR]

Bài 3:

Uses crt;
var a,b: integer;
begin
clrscr;
write ('Nhap so a: '); readln (a);
write ('Nhap so b: '); readln (b);
if a>b then write ('So lon hon la so ',a);
if a<b then write ('So lon hon la so ',b);
if a=b then write ('Hai so bang nhau!');
readln
end.

Bài 4 và bài 5 thì cứ làm na ná như bài 3 là được!
Bài 6 thì trong SGK phần Bài tập thực hành Câu lệnh If...Then có mà!
Bài 7:

Uses crt;
var m, n: integer;
begin
clrscr;
write ('Nhap so M: '); readln (m);
write ('Nhap so N: '); readln (n);
if (m mod 2 <> 0) and (n mod 2 <> 0) then write ('Dung!') else write ('Sai!');
readln
end.

Nhấn Thanks và Đúng cho mình nha!

 

[fullluis]

Bài 4,5,6 nếu làm na ná được thì mình chỉ hỏi bài 3 thôi . Nếu bạn biết cách làm thì sửa dùm mình luôn đi

 

[megamanxza]

Bài 3 mình sửa rồi mà! Ở trên đó!
Còn bài 4 và 5 bạn cứ dùng If...then là được. Có điều code dài hơn tí thôi!

 

[thienvamai]

bạn có thể tạo hàm tìm max(a,b) trả về giá trị a nếu a>b nếu không trả về giá trị b để làm bài 3
sau đó bài 4 chỉ cần in ra max(a,max(b,c))
còn bài 5 in ra max(max(a,b),max(c,d))