Question

Câu 1: Viết chương trình in ra 100 số tự nhiên (từ 0->99, mỗi hàng 10 số)

Câu 2: Viết chương trình kiểm tra n nhập vào có phải là số nguyên tố hay không.

Câu 3: Viết chương trình nhập vào điểm toán và điểm văn, sau đó tính trung bình cho từng bạn, tính trung bình cho từng môn.

Answer 1

Câu 1:
uses crt;
var i,j:longint;
begin
clrscr;
for i:=0 to 9 do
begin
for j:=0 to 9 do
write(10*i+j:4);
writeln;
end;
readln
end.

Answer 2

var i,n:integer;

dtbtoan,dtbvan:real;

diemtoan,diemvan: array[1..100] of real;

begin

write('nhap n='); readln(n);

for i:=1 to n do

begin

write('diem toan ban thu ',i,' la:'); readln(diemtoan[i]);

write('diem van ban thu ',i,' la:'); readln(diemvan[i]);

end;

write('diem trung binh:');

for i:=1 to n do

writeln('ban thu ',i,' la: ',(diemtoan[i]+diemvan[i])/2:3:1);

dtbtoan:=0; dtbvan:=0;

for i:=1 to n do

begin

dtbtoan:=dtbtoan+diemtoan[i];

dtbvan:=dtbvan+diemvan[i];

end;

dtbtoan:=dtbtoan/n; dtbvan:=dtbvan/n;

writeln('diem trung binh mon toan la:',dtbtoan:3:1);

writeln('diem trung binh mon van la:',dtbvan:3:1);

end.

Answer 3

Câu 2:
uses crt;
var n:longint;
function kt(k:longint):longint;
var i:longint;
begin
kt:=1;
if k<=1 then kt:=0;
for i:=2 to trunc(sqrt(k)) do
if k mod i=0 then kt:=0;
end;
begin
clrscr;
write('Nhap n: ');readln(n);
if kt(n)=1 then writeln('La so nguyen to') else writeln('Ko la so nguyen to');
readln
end.

Answer 4

Câu 3: Do mình chưa hiểu rõ đề bài nên mình ko làm nha bạn!!! ^_^