DAY SO DAC BIET

Dãy số đặc biệt

Dãy số A₁, A₂,..., A_N được gọi là dãy số đặc biệt nếu nó thoả mãn các điều kiện:

• Là dãy số giảm dần;
• Với mỗi A_i thì A_i hoặc là số nguyên tố hoặc là ước của một trong các số từ A₁ đến A_i-1.

Em hãy tìm dãy số đặc biệt dài nhất bắt đầu từ N.

Dữ liệu vào: Từ file văn bản DAYSO.IN là một số nguyên dương N (N < 10000).

Kết quả: Ghi ra file văn bản DAYSO.OUT là dãy số tìm được, các số ghi cách nhau bởi dấu cách.

Ví dụ:

DAYSO.IN	DAYSO.OUT
12	12 11 7 6 5 4 3 2

ĐỀ XUẤT GIẢI THUẬT NÀO CÁC CÔ CẬU!

bai 3; xac dinh so doi xung

program bai3;
var s:string;
    i,l:integer;
    kt:boolean;
begin
writeln('nhap chuoi so bat ky');
readln(s);
kt:=(true);
l:=length(s);
for i:=1 to length(s) div 2 do
if s[i]<>s[l-i+1] then kt:= (false);
if kt then writeln('chuoi nay doi xung')
else writeln(' chuoi so nay khong doi xung');
readln;
end.

Số Amstrong- Kim Ngân

program so_amstrong;
uses crt;
var i, so, p, j, b, h,  bx:integer;
    s:string;
begin
     clrscr;
     write('nhap day so bat ki: ');readln(so);
     p:=0; str(so,s); h:=so;
         repeat
               b:=so mod 10; so:=so div 10;
               bx:=b;
               for j:=2 to length(s) do
                   bx:=bx*b;
               p:=p+bx;
         until so=0;
         if p=h then writeln(h,'la so amstrong');
     readln;
end.

Số đối xứng - Lê Quang Tuấn

program chuoidoixung;
uses crt;
var st:string;
    i,l:integer;
    kt:boolean;
begin
     clrscr;
     write('Nhap chuoi bat ki: '); readln(st);
     kt:=true; l:=length(st);
     for i:=1 to length(st)div 2 do
         if st[i]<>st[l-i+1] then kt:=false;
     if kt then writeln('Doi xung!') else writeln('Khong doi xung!');
     readln
end.

program so_amstrong;
uses crt;
var i,so,p,b,j,bx:integer;
s:string;
begin

CLRSCR;

writeln ('tim so amstrong');
writeln ('nhap so bat ki');
...

for i:=1 to maxint do
begin
so:=i;
p:=0;
str (i,s);
repeat
b:=so mod 10; so:= so div 10;
bx:=b;
for j:=2 to length (s) do
bx:=bx*b;
p:=p+bx;
until so=0;
if p=i then write (i,'':3);
end;
readln;
end.

bài 1

program bai1;
var kt:boolean;
      so,i,x:integer;
begin
writeln('xac dinh so nguyen to');
writeln(' vd: 2,3,5,7,11,13,17,19...');
writeln(' nhap so bat ki:');
readln(so);
if so>=2 then
kt:=(true);
for i:=2 to so-1 do if so mod i = 0 then kt:=false;
if kt then writeln(' day la so nguyen to ', so)
else writeln('day khong phai la so nguyen to ', so);
readln;
end.

đề 2: tìm số Amstrong

program bai2;

var i,so,p,b,bx,j,h:integer;
     s:string;
begin
writeln('nhao so');
 readln(so);
h:=so; p:=0; str(so,s);
 repeat
 b:=so mod 10;
 so:=so div 10;
 bx:=b;
 for j:=2 to length(s) do
 bx:=bx*b;
 p:=p+bx;
 until so=0;
 if p=h then
 write(h,' la so amstrong ');
 readln;
 end.

Xét xem số nhập vào có phải là số Amstrong - Lê Quang Tuấn

program at;
uses crt;
var so,b,bx,p,j,h:integer;
    s:string;
begin
     clrscr;
     write('Nhap mot so bat ki: '); readln(so);
     p:=0; str(so,s); h:=so;
     repeat
           b:=so mod 10; so:=so div 10;
           bx:=b;
           for j:=2 to length(s) do
           bx:=bx*b;
           p:=p+bx;
     until so=0;
     if p=h then writeln(h,' la so Amstrong') else writeln(h,' khong phai la so Amstrong');
     readln
end.

Số Amstrong - Lê Quang Tuấn

program soamstrong;
uses crt;
var  i,so,p,b,j,bx:integer;
     s:string;
begin
     clrscr;
     for i:=1 to maxint do
         begin
         so:=i; p:=0; str(i,s);
         repeat
               b:=so mod 10;    so:=so div 10;
               bx:=b;
               for j:=2 to length(s) do
               bx:=bx*b;
               p:=p+bx;
         until so=0;
         if p=i then
         writeln(i,'':3);
         end;
     readln
end.

Số nguyên tố - Lê Quang Tuấn

program songuyento;
uses crt;
var kt:boolean;
    so,i,x:integer;
begin
     clrscr;
     write('Nhap vao mot so bat ki: '); readln(so);
     kt:=true;
     if so>=2 then
     begin
      for i:=2 to so-1 do
          begin
          if so mod i = 0 then kt:=false;
          end;
          if kt=true then writeln('La so nguyen to!') else writeln('Khong phai so nguyen to!');
     end
     else writeln('Khong phai so nguyen to!');
     readln
end.

B3: danh sách

trùi ui!!! sai rui fải hk?? sửa nghe bà con ơi!!
program danh_sach_lop;
var i,n:string;
      a: array [1..250] of integer;
begin
write('nhap so ban trong lop cua ban ');
readln(n);
for i:=1 to n do
begin
write(' ban thu ',i,' la ');
read(a[i]);
end;
for i:=1 to n do
writeln(a[i]:4);
readln
end.

B4: tổng số chẳn lẻ.

bà con ơi! xem giúp nha. hehehe k bt đúng sai

program tong_chan_le;

var n,i,c,l:integer;

      a: array [1..250] of integer;

begin

c:=0;

l:=0;

writeln(' nhap so phan tu ban muon nhung nho khong vuot wa 250 do nha: ');

readln(n);

for i:=1 to n do

begin

write('phan tu thu ',i,' la');

read(a[i]);

end;

for i:=1 to n do

begin

if (a[i] mod 2=0) then

c:=c+a[i]

else l:=l+a[i];

end;

writeln('tong so chan la: ',c);

writeln('tong so le la: ',l);

readln

end.

in bảng cửu chương

ai đó chạy chương trình giùm nha!!! chưa chạy thử nên có trùi mới mới biết được hk????
program cuuchuong;
var i,n:integer;
      a: array [1..250] of integer;
begin
writeln('nhap bang cuu chuong ban muon xem ');
readln(n);
for i:=1 to 10 do
read(a[i]);
begin
writeln( n,'*',a[i],'=',a[i]*n:4);
readln
end;
readln
end.

Bài tập về mảng hoàn thành ngày 23-11-2012

Bài 1: Nhập vào 1 dãy n phần tử. Sắp xếp dãy đó theo thứ tự tăng dần và in ra dãy sau khi sắp.
Bài 2:  Sử dụng cấu trúc mảng trong Pascal in ra bảng cửu chương.
Bài 3: Dùng cấu trúc mảng hãy nhập vào danh sách lớp bạn và in ra danh sách đó theo thứ tự tên đã nhập.
Bài 4: Nhập vào 1 dãy và in ra tổng các số chẵn, lẻ.

INDAYSO

nhập hàm số nguyên in ra day số đó....
bài này như dzầy mà tui khổ sở nèk trùi!!!!
program indayso;
uses crt;
var n,i:integer;
 arr:array [1..100] of integer;
begin
clrscr;
        writeln('nhap sp phan tu:  ');
              readln(n);
for i:=1 to n do
 readln(arr[i]);
 for i:=1 to n do
     write (arr[i] : 4);
readln;
end.

Tinh. K.T.

chuoi bai tap ...khikhikhi......
program tinh;
 uses crt;
VAR n,i,d,c,b,l,t: integer;
a: array [1..100] of integer;
begin
clrscr;
writeln('nhap day so n '); readln(n);
d:=0;
t:=0;
c:=0;
l:=0;
b:=0;
for i:=1 to n do
begin
write('phan tu thu ',i,' la');
read(A[i]);
if (A[i]>0) then
d:=d+A[i];
if (A[i] mod 2=0) then
begin
c:=c+A[i];
t:=t+1;
end;
if (A[i] mod 3=0) then
begin
b:=b+A[i];
l:=l+1;
end;
readln
end;
writeln('tong cac so duong la ',d);
writeln('tong cac so chan la ',c);
writeln('so luong so chan la ',t);
writeln('tong cac so chia het cho 3 la ',b);
writeln('so luong cac so chia het cho 3 la ',l);
readln
end.

Borland Pascal 7.0

Tải file này xuống và cài đặt nếu máy chưa có pascal.
Link: http://www.mediafire.com/?o9o53tergtzhm9j
Bấm Download!

Xin chào

Hello