Mọi người giúp mình với 1) Viết chương trình nhập vào dãy số n phần tử.Xuất ra các số lẻ 2)Viết chương trình tính n! Bằng chương trình con: n! =1.2.3.4.5.6...n

nguyentrongtunglam

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 10 xem

1 trả lời

Thích Trả lời

vomanhquan01632183564

uses crt;
var i,n:longint; a:array[1..1000000]of longint;
begin
clrscr;
write('Nhap n): ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
end;
write('Cac so le: ');
for i:=1 to n do if a[i] mod 2=1 then write(a[i],' ');
readln
end.

uses crt;
var n:longint;
function gt(a:longint):longint;
var i:longint;
begin
gt:=1;
for i:=1 to a do gt:=gt*i;
end;
begin
clrscr;
write('Nhap n: ');readln(n);
writeln(gt(n));
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

nhn17122002

Câu 1:

uses crt;
var a:array[1..1000]of longint;
n,i:word;
begin
clrscr;
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do
if a[i] mod 2=1 then write(a[i],' ');
readln;
readln;
end.

Câu 2:

uses crt;
var n:word;
function isFactorialOfN(n:word):longint;
var i:word;
begin
if n<2 then exit(1)
else exit(n*isFactorialOfN(n-1));
end;
begin
clrscr;
readln(n);
write(isFactorialOfN(n));
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Các bạn đọc đoạn văn trên câu 1) và làm giúp mình câu 2) nhé Chỉ câu 2) thôi nhé Mình đang cần rất gấp Trước 10h nhé các bạn

một bể nước dạng hình hộp có các kích thước đo trong lòng bể là: chiều dài 3m chiều rộng 2m chiều cao 1,5m .thể tích bể nước là ......... m³

Giúp mình giùm câu này khó quá đang kiểm tra gấp

Nêu những thuận lợi và khó khăn do khí hậu nước ta mang lại ?

Em cần phải làm gì để sống có đạo đức và tuân theo pháp luật?

nhiệm vụ chăn nuôi ở nước ta là gì(cấm chép mạng=>nếu chép mạng đồng nghĩa báo cáo vi phạm)

viết 1 bài thuyết trình nói và cách làm 1 chiếc hộp đựng bút bằng chai nhựa

y=$\frac{(2sinx -1)^{2} }{(2cosx -1)^{2} }$ đạo hàm ạ mk cần gấp thx

Vì sao vào buổi sáng sớm, cá dưới ao thường ngoi lên mặt nước?

Tả lại cảnh ông em đang cho chú chó cưng ăn