Tin học Đề thi Tin 8

Bài 1: Viết chương tìm ước số chung lớn nhất của hai số nguyên a và b khác 0, với a, b được nhập từ bàn phím.
Bài 2: Viết chương trình nhập vào một mảng gồm n phần tử (n<=100). Kiểm tra và in ra màn hình các số là số nguyên tố sắp xếp theo thứ tự tăng dần.
Bài 3: Trăm Trâu, trăm cỏ
Trâu đứng ăn năm
Trâu nằm ăm ba
Lụ khụ Trâu già
Ba con một bó
Viết chương tìm số Trâu đứng, Trâu nằm, Trâu già?

Giúp mk với mọi người ơi!!!!! Mk sắp thi rồi!!!

 

1)
Các thao tác nhập dữ liệu và khai báo biến bạn tự làm nha

Mã:

if a > b then begin c := a;a := b; b := c;end; {hoan doi a va b}
if (a > 0) and (b > 0) then
begin
for i := a downto 1 do
if b div i = 0 then begin UCLN := i;break;end;
write('UCLN la: ',UCLN);
end
else write('a hoac b am!');

2)

Mã:

function NguyenTo(n: integer): Boolean;
begin
NguyenTo := True;
if n > 1 then
begin
for i := 2 to trunc(sqrt(n)) do
if n div i = 0 then begin NguyenTo := False;break;end;
end
else NguyenTo := False;
end;

Procedure SapXep;
var i,j: integer;
Begin
for i := 1 to m do
for j := m-1 downto i do
if ngto[j] > ngto[j + 1] then begin tam := ngto[j];
ngto[j] := ngto[j+1]; ngto[j + 1]:= tam;end;
End;

BEGIN
..... {bạn tự viết đoạn này nha}
m := 0;
for i := 1 to N do
begin
if NguyenTo(A[i]) then begin inc(m); ngto[m] : = A[i];end;
end;
SapXep;
for i := 1 to m do write(ngto[i],'  ');
END.

 

uses crt;
var a,b: longint;
begin
clrscr;
write('Nhap hai so a, b:');readln(a,b);
while a<>b do
if a>b then a:=a-b else b:=b-a;
write('UCLN la:',b);
readln;
End.

 

3)

Mã:

uses crt;
var i,j,k:integer;
begin
    clrscr;
    for i:=0 to 20 do
    for j:=0 to 33 do
    begin
        k := 100-i-j;
        if k mod 3 <>0 then continue;
        if 5*i+j*3+(k div 3)=100 then writeln('Co ',i,' trau dung, ',j,' trau nam, ',k,' trau gia');
    end;
    readln
end.