YOMEDIA
NONE

Viết chương trình pascal nhập một số và kiểm tra xem số đó có phải số song tố không với số song tố là số nguyên tố và tổng chữ số của nó cũng là số nguyên tố?

Viết chương trình pascal nhập một số và kiểm tra xem số đó có phải số song tố không (số song tố là số nguyên tố và tổng chữ số của nó cũng là số nguyên tố)

Theo dõi Vi phạm
ADSENSE

Trả lời (1)

  • program song_to;

    uses crt;

    var x,i,dem,tcs,t:longint;

    function tongchuso(x:longint):longint;

    begin

    tcs:=0;

    while x<>0 do

    begin

    tcs:=tcs+x mod 10;

    x:=x div 10;

    end;

    tongchuso:=tcs;

    end;

    begin

    clrscr;

    write('nhap vao mot so:');readln(x);

    dem:=0;

    for i:=1 to x do

    if x mod i=0 then dem:=dem+1;

    if dem=2 then

    begin

    t:=0;

    for i:=1 to tongchuso(x) do

    if tongchuso(x) mod i =0 then t:=t+1;

    if t=2 then write(x,' la so song to');

    end

    else write(x,' k la so song to');

    readln;

    end.banh

      bởi Nguyễn Thị Xuân Thương 30/10/2018
    Like (0) Báo cáo sai phạm

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

 

YOMEDIA
AANETWORK
OFF