1. viết chương trình tính tổng: S=1+2+3+...+n , trong đó n là số nguyên dương nhập từ bàn phím 2. viết chương trình tính tích 30 số nguyên dương đầu tiên 3. viết chương trình nhập một mảng và tìm giá trị lớn nhất của mảng Mình Cần Gấpp

lichnguyen.tbvn

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 17 xem

1 trả lời

Thích Trả lời

huedantruong

Câu 1:
program C;
uses crt;
var s,n,i:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do s:=s+i;
write('Tong: ',s);
readln;
end.
Câu 2:
program C;
uses crt;
var s,i:integer;
begin
clrscr;
s:=1;
for i:=1 to 30 do s:=s*i;
write('Tich: ',s);
readln;
end.
Câu 3:
program C;
uses crt;
var a:array[1..100] of integer;
s,i,n,max:integer;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']: '); readln(a[i]);
end;
max:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
write('GTLN: ',max);
readln;
end.

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

tranlinhhuyen

Câu 1:

Program Hello;

var n:longint;

begin

readln(n);

writeln((n*n+n) div 2);

readln;

end.

Câu 2:

Tích các số tự nhiên liên tiếp bắt đầu từ 1 là giai thừa. Nên kết quả lả rất lớn. Nên dùng kiểu dữ liệu lớn hơn để tính.

Program Hello;

var p:qword;

i:byte;

begin

for i:= 1 to 30 do

p:= p * i;

writeln(p);

readln;

end.

Câu 3

Thay vị nhập mảng sau đó mới tìm thì ta vừa nhập vừa tìm.

Program Hello;

var n,i:longint;

a:array[1..100000] of longint;

begin

readln(n);

for i:= 1 to n do

begin

read(a[i]);

if max < a[i] then max:= a[i];

end;

writeln(max);

readln;

end.

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

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

Giải hộ e với ạ đề thi ạ lớp 10 ạ môn vật lý ạ

Bản thân em cần phải lầm gì để bảo về và duy trì động vật quí hiếm

Trình bày hiểu biết của em về nước Vạn Xuân ? Họ Khúc xây dựng chính quyền tự chủ như thế nào ?

Câu 1: (1 điểm) Bố mẹ Tâm Đan là người nước Anh đến Việt Nam sinh sống và làm việc đã lâu nên đã nhập quốc tịch Việt Nam. Tâm Đan sinh ra và lớn lên ở Việt Nam. Theo em, Tâm Đan có phải là công dân Việt Nam không? Vì sao?

câu thơ "lại đi , lại đi trời xanh thêm " dùng biện pháp ti từ gì? tác dụng của biện pháp tu từ đó

-Tại sao lại chọn Rạch Gầm-Xoài Mút làm trận địa quyết chiến? -Giải thích câu tứ dịch quán?

Giúp mình với cần gấp nhé Đặt câu với các "từ" sau: -Allow sbd to do st: Cho phép ai đó làm gì -Allow + V_ing -Jield:Cánh đồng -peace(n) :sự bình yên -lighter:bật lửa -iron:là ủi -jind it/st + adj:thấy việc gì/ cái gì đó thế nào đó -out of work=unemployed(adj): thất nghiệp -out of orden(adj): bị hỏng -out of question(adj)=impossible: bất khả thi -out of mind out of sight: xa mặt cách lòng . MÌNH ĐANG CẦN GẤP!

Tuyển tv nhóm who is he Vẽ anime chán

Câu 3 (2đ): Trình bày các bước để sao chép và di chuyển một phần văn bản?

Vì sao nói trong các năm 1786 đến năm 1788 phong trào Tây Sơn đã bước vào hoàn thành sự nghiệp thống nhất đất nước

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