Question

Sử dụng ngôn ngữ lập trình Pascal để viết các chương trình nhằm giải quyết các bài toán sau:

Đếm xem có bao nhiêu số có 3 chữ số chia hết cho 3 nhưng không chia hết cho 6. Tính tổng của các số đó Tìm tất cả các số có 4 chữ số có tổng các chữ số chia hết cho 5 Kiểm tra một số nguyên cho trước có phải là số nguyên tố hay không? Tìm tất cả các số nguyên tố từ 2 đến n với n là số nguyên được nhập vào từ bàn phím Tìm tất cả các số hoàn hảo từ 1 đến n với n là số nguyên được nhập vào từ bàn phím. Tính tổng các số vừa tìm được.

Answer 1

https://i.imgur.com/sI4GeaE.png

Answer 2

1:

uses crt;
var i,dem:integer;
s:longint;
begin
clrscr;
s:=0;
dem:=0;
for i:=100 to 999 do
if (i mod 3=0) and (i mod 6<>0) then
begin
inc(dem);
s:=s+i;
end;
writeln('so cac so co 3 chu so chia het cho 3 nhung khong chia het cho 6 la: ',dem);
writeln('tong cac so co 3 chu so chia het cho 3 nhung khong chia het cho 6 la: ',s);
readln;
end.

2:

uses crt;
var st:string;
i,d,t,x,y,j:integer;
begin
clrscr;
for i:=1000 to 9999 do
begin
str(i,st);
d:=length(st);
t:=0;
for j:=1 to d do
begin
val(st[j],x,y);
t:=t+x;
end;
if t mod 5=0 then
begin
delay(350);
write(i:6);
end;
end;
readln;
end.

3:

uses crt;
var i,kt,n:integer;
begin
clrscr;
write('n='); readln(n);
if n>1 then
begin
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
end
else writeln(n,' khong la so nguyen to');
readln;
end.

4:

uses crt;
var i,kt,n,j:integer;
begin
clrscr;
write('n='); readln(n);
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.

5:

uses crt;
var n,s,i,t,j:integer;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
begin
t:=0;
for j:=1 to i-1 do
if i mod j=0 then t:=t+j;
if t=i then
begin
write(i:4);
s:=s+i;
end;
end;
writeln;
writeln('tong cac so hoan hao trong khoang tu 1 toi ',n,' la: ',s);
readln;
end.