Câu 1 (4đ): Viết chương trình Pascal tính tích sau: A=1x3x5x...x19. Câu 2 (6d): Em hãy viết chương trình pascal theo các yêu cầu sau: al. Nhập và in ra dãy gồm 10 số nguyên (mỗi số cách nhau 1 khoảng trắng). b/. Tinh và in ra tổng các số chăn có trong dãy vừa nhập. M.n giải giúp

krocus1256

2 năm trước

Câu 1 (4đ): Viết chương trình Pascal tính tích sau: A=1x3x5x...x19. Câu 2 (6d): Em hãy viết chương trình pascal theo các yêu cầu sau: al. Nhập và in ra dãy gồm 10 số nguyên (mỗi số cách nhau 1 khoảng trắng). b/. Tinh và in ra tổng các số chăn có trong dãy vừa nhập. M.n giải giúp e đề này mai e thi tin học rồi ạaa. Giúp em m.n oiiii

Loga Sinh Học lớp 12

0 lượt thích 16 xem

1 trả lời

Thích Trả lời

anhdatmk1

Câu 1:

uses crt;

var a:longint; i:integer;

begin

clrscr;

A:=1;

for i:=1 to 19 do if i mod 2 = 1 then A:=A*i;

write('Tich la: ',A);

readln;

end.

Câu 2:

uses crt;

var a:array[1..10] of integer;

i,tong:integer;

begin

clrscr;

for i:=1 to 10 do

begin

read(a[i]);

if a[i] mod 2 = 0 then tong:=tong+a[i];

end;

writeln('Day vua nhap la: ');

for i:=1 to 10 do write(a[i],' ');

writeln;

write('Tong cac so chan co trong day vua nhap la: ',tong);

readln;

end.

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

891927551156049

Câu 1:
uses crt;
var i:integer;a:longint;
begin
clrscr;
a:=1;
for i:=1 to 19 do if i mod 2<>0 then a:=a*i;
write('Gia tri bieu thuc A: ',a);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100] of integer;i:integer;s:longint;
begin
clrscr;
for i:=1 to 10 do
begin
write('Nhap cac so nguyen: '); read(a[i]);
if a[i] mod 2<>1 then s:=s+a[i];
end;
write('Day so nguyen: ');
for i:=1 to 10 do write(a[i],' ');
writeln;
write('Tong cac so chan trong day: ',s);
readln;
end.

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

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

bạn An nói rằng ''có thể sử dụng lệnh Copy và Past để chèn tệp âm thanh vào trang chiếu và cho chạy tệp đó bằng cách nháy chột lên biểu tượng của tệp khi trình chiếu '' hãy nhận xét về phát biểu đó

Nêu đặc điểm giống và khác nhau giữa mắt và kính lúp ?

Máy biến áp một pha có điện áp sơ cấp là 110 V số vòng dây sơ cấp cuộn gấp 4 lần số vòng dây thứ cấp tính diện áp đầu cuộn thứ cấp ? máy biện áp trên là máy biện áp tăng hay giảm áp

1)quy trình trồng cây ăn quả? Hãy giải thích vì sao bước 1 và bước 2 lại phải thực hiện trước khi trồng 25đến30 ngày? 2) Vì sao vị trí bốn phân thức lại xác định theo hướng hình chiếu của tán cây?

4.Phong trào Cần Vương nổ ra và phát triển như thế nào?Vì sao Chiếu Cần Vương đc đông đảo các tầng lớp nhân dân hưởng ứng

Cho 5.6l So2 (dktc) vào 100ml dung dịch NaOh 5m. Tính khối lượng muối tạo thành

viết đoạn văn về thế hệ trẻ trong thời kì kháng chiến chống Mĩ. Liên hệ bản thân

viết 1 bài nói tiếng anh về tiết kiệm năng lượng khoảng 50 từ

Vẽ anime Nl: tui xin khẳng định lại tui lớp 4 ạk :))

vẽ chibi vẻ mặt khó hỉu nha nl : á á á ..... mod này chơi hơi kì à nha , tôi có copy đâu , trả lời đúng đề bài nhưng mod lại xóa của tôi . Còn bn ở dưới bn đó copy , toi có link đàng hoàng nhưng mod lại ko xóa .. bất công quá à mod nào xóa câu đó ra đây tui nói chuyện ạ , link tui để ở dưới bình luận nha ( mod xóa oan mà còn ko cho kháng cáo là hơi bực đó nha )

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến