Question

VCT pascal nhập n từ bàn phím:

(1) xuất ra màn hình:

dòng 1: các số lẻ từ 1 đến n

dòng 2: các số chẵn từ 2 đến n

(2) xuất ra màn hình:

dòng 1: các số lẻ chai hết cho 3 và tổng các số lẻ từ 1 đến n

dòng 2: các số chẵn là số chính phương từ 1 đến n

(3) xuất ra màn hinh

dòng 1: kiểm tra n có phải là số nguyên tố không ?

dòng 2: các số nguyên tố từ 2 đến n

(4) xuất ra màn hình tổng các chữ số của n

làm trong một file nha mọi người

giúp mình với!

Answer 1

uses crt;
var n,i,t,kt,j,t1,d,x,y:integer;
st:string;
begin
clrscr;
repeat
write('nhap n='); readln(n);
until n>0;
writeln('Cac so le trong khoang tu 1 toi ',n,' la: ');
for i:=1 to n do
if i mod 2=1 then write(i:4);
writeln;
writeln('Cac so chan trong khoang tu 2 toi ',n,' la: ');
for i:=2 to n do
if i mod 2=0 then write(i:4);
writeln;
writeln('Cac so le chia het cho 3 trong khoang tu 1 toi ',n,' la: ');
for i:=1 to n do
if (i mod 2=1) and (i mod 3=0) then write(i:4);
writeln;
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+i;
writeln('Tong cac so le trong khoang tu 1 toi ',n,' la: ',t);
if n>1 then
begin
kt:=0;
for i:=2 to n-1 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');
writeln('Cac so nguyen to trong khoang tu 2 toi ',n,' la: ');
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;
writeln;
str(n,st);
d:=length(st);
t1:=0;
for i:=1 to d do
begin
val(st[i],x,y);
t1:=t1+x;
end;
writeln('Tong cac chu so cua ',n,' la: ',t1);
readln;
end.