Chuyển đến nội dung chính

Bài đăng

Bài đăng nổi bật

Số song tố

var N,n1,i,s:integer; {ham tinh so nguyen to} function snt(x:integer):boolean; var i:integer; begin         snt:=x>1;        for i:= 2 to x-1 do if x mod i =0 then snt:=false; end; {ham tinh tong cac chu so cua 1 so} function tong(n:integer):integer; var s:integer; begin s:=0; while n>0 do         begin            s:=s+ n mod 10;            n:=n div 10;         end; end; begin clrscr; repeat     write('Nhap n:'); read(n); until (n>1) and(n<1000); writeln('Tong cac chu so cua n:',tong(n));  {xet xem n co phai la so song to hay khong} if snt(n) and snt(tong(n)) then write('N la so song to') else  write('N khong phai so song to'); {in ra cac so song to tu 1 den 100} for i:=1 to 100 do if  snt(i) and snt(tong(i)) then write(i, ' '); readkey; end.
Các bài đăng gần đây

Tam giác số (Pascal)

TAM GIÁC SỐ  (Câu 4. Hội thi Tin Học Trẻ Phú Yên lần thứ XIX - năm 2016)                              7                          3       8                      8      1       0                   2     7        4       4                 4    5      2       6       5 Cho một tam giác gồm các số nguyên không âm (xem hình trên). Hãy viết chương trình tính tổng lớn nhất của các số nằm trên lộ trình từ đỉnh xuống: - Tại mỗi bước đi, lộ trình có thể đi xuống phía bên trái hoặc xuống phía bên phải. - Số hàng trong tam giác lớn hơn...

MÃ HÓA CAESAR

MÃ HÓA CAESAR Hệ mã hoá CAESAR là một hệ mã hoá thay thế đơn làm việc trên  bảng chữ cái tiếng Anh 26 ký tự (A, B, ... , Z). Trong hệ CAESAR và các hệ tương tự còn lại ta sử dụng các số tự  nhiên thay cho các ký tự - đánh số các ký tự trong bảng chữ cái theo thứ  tự: A là 0, B là 1,...và Z là 25.  A B C D ... L M N ... W X Y Z 0 1 2 3 ... 11 12 13 ... 22 23 23 25  Mã hóa caesar bằng Pascal uses crt; var s : string;     i,k : byte; Function caesar(c: char; k: byte) : char; var tmp : byte; Begin    if (upcase(c) in ['A'..'Z']) then       Begin         tmp := ord(upcase(c)) + k;         if (tmp > 90) then tmp := tmp - 26;         exit(char(tmp));       End     else exit(c); End; Begin    clrscr();    writeln('Nhap chuoi can ma hoa');    readln(s);    writeln...

ĐỀ THI HSG CẤP TỈNH PHÚ YÊN NĂM 2017-2018

ĐỀ THI HSG CẤP TỈNH   PHÚ YÊN NĂM 2017-2018 Bài 1 :(6 điểm) Dãy số  Cho số tự nhiên N (0<N<=10^9) . Hãy lập trình trả lời các câu hỏi sau : a. N có bao nhiêu chữ số? b. Tổng các số chẵn của N bằng bao nhiêu? c. Tìm chữ số thứ K của N kể từ vị trí đầu tiên bên trái ( với K<= số chữ số của N )? Yêu cầu : + Dữ liệu vào:  cho trong tệp văn bản  BAI1.INP  gồm hai tự nhiên N,K  .Các số cách nhau một khoảng trống      + Dữ liệu ra :  ghi trong tệp văn bản  BAI1.OUT  gồm ba dòng, mỗi một số là kết quả  của các câu a , b và c  Ví dụ :      BAI1.INP : 120346786  4       BAI1.OUT :    9                           26                            3    Bài 2: (4 điểm) Tính tiền thuê máy tính truy cập Int...

Mảng 1 chiều

Bài 1:  Cho tam giác ABC  có chiều dài 3 cạnh lần lượt là a,b,c ; 0<a,b,c<10 Hãy tìm các giá trị  a,b,c sao cho tạo thành một tam giác vuông Thỏa mãn  a+b>c ; a+c>b và b+c>a thì là tam giác   C^2=a^2+b^2 Chuyên đề: Mảng 1 chiều (làm việc với dãy số) Ví dụ:  nhập vào các số có giá trị như sau Giá trị  mảng A 1 4 8 9 6 8 4 3 Vị trí: i 1 2 3 4 5 6 7 8 Lấy giá trị A[1]=3  A[2]=4 A[3]=8 A[4]=6 A[5]=9 A[6]=8 A[7]=4 A[8]=1 Khai báo mảng Var   A :array[1..50] of   integer; {khai báo mảng A là mảng gồm 50 số nguyên} 1 2 3 …. 50 Bài toán  Nhập vào từ bàn phím N số nguyên  (0<n...

KỲ THI HSG LỚP 9 THCS TỈNH PHÚ YÊN (2015-2016)

KỲ THI HSG LỚP 9 THCS  TỈNH PHÚ YÊN  (2015-2016) môn: Tin học thời gian làm bài 150 phút Câu 1: (3đ) phần thưởng trong một cuộc thi giải toán trên Internet mỗi học sinh đều có số điểm tích lũy riêng của mình. số điểm tích lũy của mỗi học sinh là một số nguyên dương k(0<k<2x10 mũ 9). Đội tuyển của trường THCS tài năng có N học sinh tham gia dự thi (2<=N<=100). Tại cuộc gặp mặt trước cuộc thi cấp tỉnh, thầy hiệu trưởng quyết định thưởng cho các học sinh trong đội tuyển Q triệu đồng, biết rằng điểm tích lũy của mỗi học sinh đều chia hết cho Q. yêu cầu: Hãy tìm số nguyên dương Q lớn nhất dữ liệu vào: cho trong file văn bản PT.INP có cấu trúc như sau -           Dòng 1: ghi số nguyên dương N là số học sinh -           dòng 2: Ghi N số nguyên dương lần lượt là điểm tích lũy của N học sinh, các số được ghi cách nhau ít nhất một dấu cách. ví dụ: PT.inp ...

ví dụ về đọc, ghi dữ liệu vào tệp

uses crt; var N,i:integer;     f,g:Text; function snt( a:integer):boolean; var j:integer; uoc:integer; begin uoc:=0; for j:= 1 to a do if a mod j =0 then uoc:=uoc+1; if uoc=2 then snt:=true else snt:=false; end; begin  assign(f,'bai1.txt') ; {khoi tao}  reset(f);              {doc du lieu}  read(f,n);             {doc du lieu vao bien N}  close(f) ;                   {dong tep}  assign(g,'kqbai1.txt') ; {khoi tao}  rewrite(g);              {tao tep tin moi}  for i:=1 to n-1 do  if (i mod 2=0) and (i mod 3=0) then write(g,i, ' ');  for i:=1 to N-1 do  if snt(i)=true then writeln(g,'snt:',i);  close(g);  readkey;  end.