Tin học Đề thi Tin 8

[thuongloan1697]

[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.

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!!!

 

[trà nguyễn hữu nghĩa]

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

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)

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.

 

[Trương Hoài Nam]

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!!!

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.

 

[ka1412]

3)

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.