giải dùm em mấy bài pascal nay de

[khanhteen113]

bài 1 : viết chương trình nhập gồm n phần tử ,sau đó đưa ra màn hình đã đc sắp xếp tăng( gợi ý viết thủ tục nhập thủ tục xuất sắp xếp

bài 2: viết chương trình nhập số nguyên dương n sau đó đưa ra màn hình các số nguyên tố nhỏ hơn n ( gợi ý : viết một hàm kiểm tra tính nguyên tố)

bài 3: viết chương trình nhập một xâu kí tự từ bàn phím và đưa ra thông báo đó có phải là xâu đối xứng không (gợi ý : viết hàm kiểm tra tính đối xứng)

bài 4 viết chương trình nhập mảng gồm n phần tử đưa ra màn hình phần tử lớn nhất.

bài 5 : viết một hàm tìm ước chung lớn nhất của 2 số nguyên dương nhập 2 số a,b từ bàn phím đưa ra màn hình bội chung nhỏ nhất của chúng biết rằng
BCNN:= a*b/ucln(a,b);

[kjkstars]

ban ah! may bai ma ban up len toan la may bai co san trong sach khong ah! chang le ban khong giai dc may bai don gian vay sao??????????

[lehang_gb1]

Mấy bài này là cơ bản nhất rồi mà !

[topvip9x]

Lại gặp mấy cha này... nếu mà ko có lòng thành giúp người khác thì đừng có reply nhé... Mấy bác giỏi rồi thì đừng có mà lên mặt. .. Ghét thái độ

Program cau2;
var a:array[1..30] of integer;
i,n,j,tg:integer
Begin
Write('Nhap so phan tu=');
readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' =');
readln(a[i]);

End;
Writeln('Sap xep tang');
For i:=1 to n do
for j:=i to n do
if a[i]>a[j] then
Begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
End;
For i:=1 to n do
Write(a[i]:3);
readln;
end.
{---------ca


Câu 2:
program nguyen_to;
uses crt;
var i,n,k:integer;
function ktnt(k:integer):boolean;
begin
if k<=1 then ktnt:=false;
if k=2 then ktnt:=true;
if k>2 then
for i:= 2 to k-1 do
if k mod i=0 then ktnt:=false;
end;
begin
clrscr;
write('nhap n: ');readln(n);
for k:=2 to n do
if ktnt(k) then writeln(k,'; ');
readln;
end.

Câu 3: bạn có thể xem sách giáo khoa tin học 10.. phần thực hành về mảng

var a:array[1..30] of integer;
i,max,n:integer
Begin
Write('Nhap so phan tu=');
readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' =');
readln(a[i]);
End;
a[1]:=max
for i:=1 to n do
if a[i]>max then max:=a[i];
Write('Max=',max);
readln;
end.

Câu 5

Var a,b,m,n:integer;
Begin
Write('Nhap a:');Readln(a);
Write('Nhap b:');Readln(b);
m:=a;n:=b
While m<>n Do
Begin
If m>n Then m:=m-b Else n:=n-m;
End;
Writeln('UCLN=',m);
Writeln('BCNN=',a*b DIV m);
Readln;
End.