Question

bài 1: vct pascal nhập số tự nhiên n xuất ra màn hình:
- các số chẵn từ 1->n
- đếm có bao nhiêu số chẵn từ 1 -> n
- tính tổng các số chẵn đó
- xét tổng đó là số chẵn hay lẻ
bài 2: vct pascal nhập số n từ bàn phím, kiểm tra có phải là số nguyên tố hay không?
( mọi người giải trong phạm vi từ bài 1 đến bài 7 thui nha, thầy không cho giải ngoài phạm vi chưa học)

Answer 1

Bài 2:

uses crt;

var i,n,kt,j:integer;

begin

clrscr;

readln(n);

if (n<2) then writeln('khong phai so nguyen to')

else 

begin

kt:=0;

for i:=2 to trunc(sqrt(n)) do

if n mod i=0 then kt:=1;

if kt=0 then writeln('la so nguyen to')

else writeln('Khong la so nguyen to');

end;

readln;

end.