1.nhập vào từ bàn phím số a.Hãy viết chương trình kiểm tra xem a có chia hết cho 3 ko? In kết quả ra màn hình 2.viết chương trình nhập vào từ bàn phím số nguyên a. Kiểm tra xem a có phải là số nguyên tố ko? In kết quả ra màn hình

2 câu trả lời

Bài 1:

program bai_giai;
var a:integer;
begin
    clrscr;
    readln(a);
    if a mod 3=0 then write('chia het')
        else write('khong chia het');
    readln;
end.

Bài 2:

program bai_giai;
uses crt;
var a,i,d:integer;
begin
    clrscr;
    readln(a);
    d:=0;
    for i:=2 to a div 2 do
        if a mod i=0 then d:=d+1;
    if d=0 then write('La so nguyen to')
        else write('Khong phai so nguyen to');
    readln;
end.

Bài 1:

Program BTT;
Uses crt;
Var a: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        If a mod 3 = 0 then Write(a,' chia het cho 3')
        Else Write(a,' khong chia het cho 3');
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var a: longint;

Function ngto(a: longint): boolean;
Var i: longint;
Begin
        If a<2 then exit(false);
        For i:=2 to a div 2 do
                If a mod i = 0 then exit(false);
                                    exit(true);
End;

Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        If ngto(a) then Write(a,' la so nguyen to')
        Else Write(a,' khong phai so nguyen to');
        Readln
End.