Câu 1: Viết chương trình tính tổng n số tự nhiên đầu tiên: S= 1+ 2 + 3 + … + n
Câu 2: Viết chương trình tính tích n số tự nhiên đầu tiên: S= 1* 2 * 3 * … * n
Câu 3: Viết chương trình tìm n sao cho tổng: S= 1+ 2 + 3 + … + n là nhỏ nhất lớn hơn 1000.
Câu 4: 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 5: Viết chương trình nhập vào điểm môn tin. Sau đó hãy xếp loại cho từng bạn theo điều kiện như sau:
• Điểm tin lớn hơn hoặc bằng 8 là loại giỏi
• Điểm tin từ 6.5 đến nhỏ hơn 8 là loại khá
• Điểm tin từ 5 đến nhỏ hơn 6.5 là loại trung bình
• Điểm tin nhỏ hơn 5 là loại kém
Câu 6: Viết chương trình tính tổng của phần tử nhỏ nhất với phần tử lớn nhất trong n phần tử là số nguyên được nhập từ bàn phím
* giúp mk vs huhu, vã môn tin lắm rồi. Cùng lắm là làm câu 5 thui :((*
Câu 1:
program Cau_1;
uses crt;
var n,i,S: integer;
Begin
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do S:=S+i;
write(‘S = ‘,S);
readln
End.
Câu 2:
program Cau_2;
uses crt;
var n,i,S: integer;
Begin
write(‘Nhap n: ‘); readln(n);
S:=1;
for i:=1 to n do S:=S*i;
write(‘S = ‘,S);
readln
End.
Câu 3:
program Cau_3;
uses crt;
var n,S: integer;
Begin
n:=1;
while S<=1000 do
begin
S:=S+n;
n:=n+1;
end;
writeln(‘S = ‘,S);
write(‘n = ‘,n);
readln
End.
Câu 4:
program Cau_4;
uses crt;
var n,i,d,j: longint;
Begin
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
d:=0;
for j:=1 to i do
if i mod j=0 then d:=d+1;
if d=2 then write(n,’ la so nguyen to’)
else write(n,’ khong la so nguyen to’);
end;
readln
End.
Câu 5:
Bạn xem hình
Mình chạy thử chương trình rồi
Câu 1:
uses crt;
var n,i,s:longint;
begin
clrscr;
write(‘N= ‘);readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(‘s= ‘,s);
readln
end.
Câu 2:
uses crt;
var n,i,s:longint;
begin
clrscr;
write(‘N= ‘);readln(n);
s:=1;
for i:=1 to n do s:=s*i;
writeln(‘s= ‘,s);
readln
end.
Câu 3:
uses crt;
var n,s:longint;
begin
clrscr;
s:=0;
while s<=1000 Do
begin
inc(n);
s:=s+n;
end;
writeln(‘n=’,n);
readln
end.
Câu 4:
uses crt;
var n:longint;
function nt(a:longint):boolean;
var i:longint;
begin
i:=2;
while(a>1)and(a mod i<>0)do inc(i);
nt:=i=a;
end;
begin
clrscr;
write(‘N= ‘);readln(n);
if nt(n) then writeln(‘n la so nguyen to’)
else writeln(‘n khong la so nguyen to’);
readln
end.
Câu 5:
uses crt;
var n:real;
begin
clrscr;
write(‘Nhap diem mon tin: ‘);readln(n);
if n>8 then writeln(‘Gioi’) else
if n>6.5 then writeln(‘Kha’) else
if n>5 then writeln(‘Trung binh’) else
writeln(‘Kem’);
readln
end.
Câu 6:
uses crt;
var n,max,min,i:longint; a:array[1..100000]of longint;
begin
clrscr;
write(‘n=’);readln(n);
min:=high(longint);
for i:=1 to n Do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln(‘Tong: ‘,max+min);
readln
end.