Bài 1 : Viết chương trình tính N (Với N nhập từ bàn phím)
Bài 2 : Viết chương trình kiểm tra số tự nhiên N có là số nguyên tố không (N nhập từ bàn phím)
Bài 1 : Viết chương trình tính N (Với N nhập từ bàn phím) Bài 2 : Viết chương trình kiểm tra số tự nhiên N có là số nguyên tố không (N nhập từ bàn phí
By Ruby
bài 1: program oken;uses crt;var n,s,i:longint;begin
clrscr;write(‘nhap n: ‘); readln(n);for i:=1 to n do s:=s*i;writeln(‘N!=’,s);readln;end.Bài 2:program ct;uses crt;var i,n:integer;beginclrscr;write(‘nhap n:=’);readln(n);if n<=1 then writeln(‘N khong la so nguyen to’) elsebegini:=2;while (n mod i<>0) do i:=i+1;if i=n then writeln(n,’ la so nguyen to’); elsewriteln(n,’khong la so nguyen to’);end;readlnend.
Bài 1:
program tinh_Tich;
uses crt;
var n,i:integer;
tich:longint;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
tich:=1;
for i:=1 to n do tich:=tich*i;
write(‘Tich cac so tu 1 den ‘,n,’ la: ‘,tich);
readln;
end.
Bài 2:
program nguyen_to;
uses crt;
var n,i,d:integer;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
d:=0;
for i:=1 to n do
if n mod i=0 then d:=d+1;
if d=2 then write(‘La so nguyen to’)
else write(‘Khong phai so nguyen to’);
readln;
end.