Em hãy viết chương trình pascal để thể hiện công dụng của đoạn lệnh trên, trong đó số a được nhập vào tùy ý người sử dụng, và câu trả lời a là số gì phải được điền vào cho phù hợp.
Em hãy viết chương trình pascal để thể hiện công dụng của đoạn lệnh trên, trong đó số a được nhập vào tùy ý người sử dụng, và câu trả lời a là số gì phải được điền vào cho phù hợp.
Theo bài bạn đăng lúc trước:
program uocso;
uses crt;
var a,i:integer;
begin
clrscr;
write(‘Nhap a: ‘); readln(a);
i:=2;
while a mod i<>0 do i:=i+1;
if a=i then write(a,’ la so nguyen to’)
else write(a,’ khong phai so nguyen to’);
readln;
end.
*Chẵn lẻ:
program chanle;
Uses crt;
var n:integer;
begin
clrscr;
write(‘Nhap so : ‘); readln(n);
if n mod 2=0 then write(n,’ la so chan’)
else write(n, ‘la so le’);
readln;
end.