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.