1/ Viết chương trình tính tổng các số chẵn nhỏ hơn hoặc bằng N. Với N là số nguyên dương nhập từ bàn phím
ví dụ:
n=7
tong cac so chan nho hon hoac bang n la:12
2/Viết chương trình tính tổng các ước của n.Với N là số nguyên dương nhập từ bàn phím
ví dụ:
n=6
tong cac uoc cua n la:12
3/ Viết chương trình nhập vào số nguyên N. thông báo ra màn hình N có là số nguyên tố không?
ví dụ 1:
N=8
N khong la so nguyen to
ví dụ 2:
N=7
N la so nguyen to
Bài 3
Trả lờiXóavar
i,n,d:integer;
begin
write('nhap n=');readln(n);
d:=0;
for i:=1 to n do
if n mod i=0 then
d:=d+1;
if (n<2) or (d<>2) then
writeln('N khong la so nguyen to')
else
writeln('N la so nguyen to');
readln;
end.
10 điểm
XóaBài 4: Đếm các ước của n
Trả lờiXóavar
i,n,d:integer;
begin
write('nhap n=');readln(n);
d:=0;
for i:=1 to n do
if n mod i=0 then
d:=d+1;
writeln(d);
readln;
end.
Chính xác. 10 đ
Xóabài 1
Trả lờiXóauses crt;
var a,n,s:integer;
begin
clrscr;
write('nhap n');
readln(n);
s:=0;
for a:=1 to n do
begin
if a mod 2=0 then s:=s+a;
end;
writeln(s);
readln
end.
Đúng. Nhưng bài này không cần sử dụng lệnh ghép
Xóabài 2
Trả lờiXóauses crt;
var a,n,s:integer;
begin
clrscr;
write('nhap n');
readln(n);
s:=0;
for a:=1 to n do
begin
if n mod a=0 then s:=s+a;
end;
writeln(s);
readln
end.
Đúng. Nhưng không cần lệnh ghép nhé
Trả lờiXóaVar g,n,a:integer ;
Trả lờiXóaBegin
Writeln(‘nhap so n = ’);
Readln(n);
A:=0;
For g :=1 to n do
If g mod 2=0 then
A:=a+g;
Write(a);
Readln;
End.
Em làm bài nào vậy? Nếu là bài tính tổng các số chăn từ 1 đến n thì đúng rồi nhé
XóaVar c,b,a:integer ;
Trả lờiXóaBegin
Writeln(‘nhap so a = ’);
Readln(a);
b:=0
For c:=1 to a do
If (c mod b=0) then
A:=a+1;
If (c>1) and (a<>2)then
Writeln(‘day ko la so nguyen to’)
Else
Writeln(‘day la so nguyen to’);
Readln;
End.
bài này em cần xem lại nhé. Em cần phân biệt biến nào để đếm số ước, biến nào là biến đếm chạy vòng For, biến nào là biến chứa số nhập vào để kiểm tra
Xóabai 1
Trả lờiXóavar
a,i,n:integer;
begin
write('nhap n= ');readln(n);
a:=0;
for i:= 1 to n do
if i mod 2=0 then a:=a+i;
writeln(a);
readln;
end.
bai 2 tinh tong va dem so uoc
Trả lờiXóavar
n,a,i,d:integer;
begin
write('nhap so= ');readln(n);
d:=0;
a:=0;
for i:= 1 to n do
begin
if n mod i=0 then a:=a+i;
if n mod i=0 then d:=d+1;
end;
writeln('tong uoc= ',a);
writeln('so uoc= ',d);
readln;
end.
Bài này cần chỉnh lại một chút như sau
Xóafor i:=1 to n do
if (n mod i=0) then
begin
a:=a+i;
d:=d+1;
end;
bai 3
Trả lờiXóavar
n,a,i:integer;
begin
write('nhap so= '); readln(n);
a:=0;
for i:=1 to n do
if n mod i=0 then a:=a+1;
if a=2 then
writeln(n,'la so nguyen to') else writeln(n,'ko phai la so nguyen to');
readln;
end.