K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
TV
1
22 tháng 2 2018
Bạn đăng qua trang toán sẽ được nhiều người giúp hơn , thật đấy !!!
BP
4
ND
2
ML
22 tháng 8 2019
Lời giải:
Bài 2:
program hotrotinhoc;
var n,i: longint;
function tich(x: longint): longint;
var j,t: longint;
begin
t:=1;
for i:=1 to x do
t:=t*i;
tich:=t;
end;
begin
readln(n);
if n=0 then n:=1;
if n>0 then
write(tich(n));
readln
end.
Bài 3:
program hotrotinhoc;
var s: longint;
n,i: integer;
function tich(x: integer): longint;
var j: integer;
t: longint;
begin
t:=1;
for i:=1 to x do
t:=t*i;
tich:=t;
end;
begin
readln(n);
s:=0;
if n=0 then s:=1;
if n>0 then
for i:=1 to n do s:=s+tich(i);
write(s);
readln
end.
1 tháng 7 2021
program FUTURE;
var n,dem:int64;
a:array[1..1000000] of int64;
i,j:longint;
kt:boolean;
function KTSNT(n:int64):boolean;
var i:longint;
kt:boolean;
begin
if n < 2 then KTSNT := false
else begin
kt := true;
for i:= 2 to trunc(sqrt(n)) do
if n mod i = 0 then
begin
kt := false;
break;
end;
if kt = true then KTSNT := true
else KTSNT := false;
end;
end;
BEGIN
readln(n);
for i := 1 to n do read(a[i]);
dem := 0;
for i := 1 to n do
begin
if KTSNT(a[i]) then continue
else if a[i] = 1 then continue
else
begin
kt := true;
for j := 2 to a[i]-1 do
if a[i] mod j = 0 then
if KTSNT(j) = false then
begin
kt := false;
break;
end;
end;
if kt = true then inc(dem);
end;
write(dem);
END.
1012=510
1AB16=42710