Hãy viết chương trình tính trung bình cộng của các số nguyên tố kể từ 2 đến N theo như ví dụ sau: Ví dụ : Nhap N=7 Trung binh cong cac so nguyen to nho hon hoac bang 7 la: 4.3 Lưu ý: Số
Trang 1Câu 1 : Tên tệp tin lưu: Bai3.pas
Số nguyên tố là số chỉ chia hết cho 1 và chính nó (số 1 không gọi là số nguyên tố) Ví dụ các số nguyên tố : 2, 3, 5, 7, 11, 13, 17,…
Cho N (5 ≤ N ≤ 50) là số nguyên dương nhập từ bàn phím Hãy viết chương trình tính trung bình cộng của các số nguyên tố kể từ 2 đến N theo như ví dụ sau:
Ví dụ :
Nhap N=7
Trung binh cong cac so nguyen to nho hon hoac bang 7 la: 4.3
Lưu ý: Số trung bình cộng này in đến 1 chữ số thập phân
Câu 2 : Viết chương trình nhập vào mảng A là dãy số nguyên, sau đó đưa ra
màn hình các số dương trong dãy và tổng các số âm
Câu 3 : (6 điểm)
Viết chương trình nhập vào một số nguyên
a) In ra màn hình các ước của số đó?
b) Số đã cho có bao nhiêu ước?
Ví dụ: Nhập vào số nguyên: 28
Các ước của 28 là: 1 2 4 7 14 28
Số 28 có: 6 ước
Câu 4: Viết chương trình tính điểm trung bình 3 môn (Toán, Lý, Hóa) theo
hệ số (2:1:1) sau đó xếp loại như sau:
a) Loại Giỏi: ĐTB >= 8.0 và không có môn nào dưới 6.5
b) Loại Khá : 6.5=<ĐTB < 8.0 và không có môn nào dưới 5
c) Loại Trung bình : 5.0 =<ĐTB < 6.5 và không có môn dưới 3.5 d) Loại yếu: còn lại
Câu 5 :Nhập N số bất kì
Đếm các số lớn hơn 10 và nhỏ hơn 20 và tính tổng của chúng Sau đó , đưa
ra màn hình :
So cac so >10 và <20 la : ( gia tri )
Tong cua chung la : ( gia tri )
Câu 6: (7 điểm) Viết chương trình cho phép nhập vào dãy số nguyên gồm n phần tử (1≤n≤100)
a) Tinh trung bình cộng của các phần tử lớn hơn 0 có trong dãy số
(Kết quả làm tròn 2 chữ số ở phần thập phân) b) Hiện ra màn hình các số nguyên tố có trong dãy số trên
Ví dụ:
Trang 2Dữ liệu vào (bàn phím) Dữ liệu ra (màn hình)
12 -6 5 14 11 31 -7 14.600
5 11 31
32 -9 -7 7 3 -23 14.000
7 3
Câu 7 : (7 điểm) Nhập vào 1 số tự nhiên N với (0 < N ≤ 65535)
a) Hãy cho biết chữ số lớn nhất của số tự nhiên vừa nhập
b) Kiểm tra xem số đó có đối xứng không
Ví dụ:
Dữ liệu vào (bàn phím) Dữ liệu ra (màn hình)
Khong doi xung
Doi xung Câu 8: (6 điểm) Viết chương trình cho phép nhập vào số nguyên n (1≤n≤10000) In ra màn hình giá trị của biểu thức: 1 12 12 12 12
T
n
(Kết quả làm tròn 2 chữ số ở phần thập phân)
Ví dụ:
Dữ liệu vào (bàn phím) Dữ liệu ra (màn hình)
Câu 9: Dãy fibonacci có 2 phần tử đầu là 1,1 Các phần tử sau bằng tổng hai phần tử đứng ngay trước nó: 1, 1, 2, 3, 5, 8, 13, 21….Nếu kí hiệu Fn là số thứ n của dãy Fibonacci, ta có:
F1 = F2 = 1, Fn = Fn-1 + Fn-2, n>=3
Hãy viết chương trình nhập từ bàn phím số nguyên n và tính số hạng thứ n của dãy Fibonacci
Câu 10 :Nhập 3 số a , b , c bất kì Hãy kiểm tra xem ba số đó có thể là độ dài ba cạnh của một tam giác hay không ? Thông báo lên màn hình ‘ Thỏa mãn ‘, ‘ Không thỏa mãn trong từng trường hợp tương ứng
Câu 11 :Nhập bốn số a , b , c , d Hãy tìm giá trị lớn nhất của chúng và gán
giá trị lớn nhất đó cho biến Max
Trang 3Câu 1:
uses crt;
var i,j,N,dem:word;
T:longint;
kt:boolean;
begin
clrscr;
write('Nhap N=');readln(N);
T:=0;dem:=0;
for i:=2 to N do
begin
kt:=false;
for j:=2 to i-1 do
if i mod j=0 then
begin
kt:=true;
break;
end;
if kt=false then
begin
T:=T+i;
inc(dem);
end;
end;
write('Trung binh cong cac so nguyen to nho hon hoac bang ',N,' la:
',T/dem:2:1);
readln;
end
Program day_so;
Uses crt;
Var
A: array[1 100] of integer;
n,i,s:integer;
Begin
Clrscr;
Write('nhap so phan tu cua mang A:'); readln(n);
For i:=1 to n do
Begin
Write('A[',i,']='); readln(a[i]);
End;
S:=0;
Writeln('cac so duong trong mang la: ');
For i:=1 to n do
Trang 4If a[i] >0 then writeln(a[i]);
If a[i] <0 then s:=s+a[i];
End;
Writeln('tong cac so am trong mang la:',s);
Readln;
End.
Program Timuoc;
Uses crt;
Var a,i,dem: integer;
Begin
Writeln (‘Nhap vao mot so nguyen: ’);
Readln (a);
dem:=0;
Write (‘Cac uoc cua so’,a, ‘la: ’);
For i:=1 to a do
If (a mod i = 0) then Begin
Write (i,‘ ’);
dem:=dem+1;
end;
Write (‘So’,a, ‘co’,dem, ‘uoc’);
Readln;
End
Program xep_loai_hoc_sinh;
uses crt;
var t,l,h,tbc, min:real;
xl:string;
Begin
write('moi nhap diem toan,ly,hoa: ');
readln(t,l,h);
Min:=l;
if min>t then min:=t;
if min>h then min:=h;
tbc:=(t*2+l+h)/4;
if (tbc>=8) and (min>=6.5) then xl:='Gioi'
else if (tbc>=6.5) and (min>=5) then xl:='Kha'
else if (tbc>=5) and (min>=3.5) then xl:='Trung binh'
else xl:='yeu';
writeln('Diem trung binh:',tbc:0:1,' Xep loai:',xl);
readln;
End
Trang 5) Var
Tong , So : Real ; I , N , Dem : Integer ;
BEGIN
Write (' Bao nhieu so : ') ; Readln ( N ) ;
Tong := 0 ; Dem := 0 ;
For I := 1 To N Do
Begin
Write (' So = ') ; Readln ( So ) ;
If ( So > 10 ) and ( So < 20 ) Then
Begin
Tong := Tong + So ; Dem := Dem + 1 ;
End ;
End ;
Writeln (' So cac so >10 va <20 la : ', Dem ) ; Writeln (' Tong cua chung
la :', Tong ) ;
Readln ;
CHƯƠNG TRÌNH THAM KHẢO Program câu6;
Uses crt;
Var i,n: integer;
t: real;
Begin
Clrscr;
Write('Nhap n: '); readln(n);
t:=0;
for i:=1 to n do t:=t+1/(i*i);
Writeln('T=',t:0:2);
Readln;
End
Program cau7;
Uses crt;
Var i,j,n,d,t: integer;
a: array[1 100] of Integer;
Begin
Clrscr;
Write('Nhap n: '); readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
Trang 6d:=0; t:=0;
For i:=1 to n do
if a[i]>0 then
begin
t:=t+a[i];
d:=d+1;
end;
Writeln('Trung binh cong cua cac phan tu lon ho 0 la: ', t/d:0:3);
Writeln('Cac so nguyen to co trong day so la: ');
For i:=1 to n do
begin
d:=0;
for j:=1 to a[i] do if a[i] mod j=0 then d:=d+1;
if d=2 then Write(a[i],' ');
end;
Readln;
End
Program cau8;
Uses crt;
Var s,s1,max: string;
i: integer;
Begin
Clrscr;
Write('Nhap n: '); readln(s);
max:='';
for i:=1 to length(s) do if s[i]>max then max:=s[i];
Writeln('Chu solon nhat la ',max);
s1:='';
for i:=length(s) downto 1 do s1:=s1+s[i];
if s1=s then writeln(s,' la xau doi xung')
else writeln(s,' khong la xau doi xung');
Readln;
End
Câ10
program soncuafibonacy;
var a,b,c,i,n:longint;
begin
write ('nhap so hang can tinh');readln(n);
Trang 7if(n=1)or(n=2) then c:=1;
else
begin a:=1; b:=1;
for i:=3 to n do begin
c:=a+b;
a:=b;b:=c;
end;
end;
writeln('so hang thu n cua day fibonaci la:',c);
readln
end
1) Var
a , b , c : Real ;
BEGIN
Writeln (' Nhap do dai 3 canh cua tam giac : ') ;
Write (' a = ') ; Readln ( a ) ;
Write (' b = ') ; Readln ( b ) ;
Write (' c = ') ; Readln ( c ) ;
If ( a + b > c ) and ( b + c > a ) and ( c + a > b ) and ( a > 0 ) and ( b > 0 ) and ( c > 0 ) Then
Writeln (' Thoa man : Day la 3 canh cua mot tam giac ')
Else
Writeln (' Khong thoa man ! ') ;
Readln ;
END
Var
Max , a , b , c , d : Real ;
BEGIN
Writeln (' Nhap gia tri cua 4 so : ') ;
Write (' a = ') ; Readln ( a ) ; Write (' b = ') ; Readln ( b ) ; Write (' c = ') ; Readln ( c ) ; Write (' d = ') ; Readln ( d ) ;
Max := a ;
If Max < b Then Max := b ; If Max < c Then Max := c ; If Max < d Then Max := d ;
Writeln (' Gia tri lon nhat la : ', Max ) ;
Readln ;
END