Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Tuyen Nguyen

Bài 1:Viết chương trình tính tổng các số chẵn từ 1 đến n ( n nhập từ bàn phím).Đồng thời in ra các số vừa chia hết cho 3 vừa chia hết cho 5 trong khoảng từ 1 đến n.

Bài 2:VCT nhập vào n số nguyên x(n nhập vào từ bàn phím).In ra các số nguyên nhỏ hơn 0 và tính tổng các số nguyên chẵn.

Nguyễn Trung Hiếu
3 tháng 5 2019 lúc 21:20

Bài 1:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
if i mod 2=0 then s:=s+i;
write('Tong cac so chan tu 1 den ',n,' la: ',s); writeln;
for i:=1 to n do
if (i mod 3=0) and (i mod 5=0) then write(i,' ');
readln
end.

Nguyễn Trung Hiếu
3 tháng 5 2019 lúc 21:22

Bài 2:
uses crt;
var n,i,s:longint;
a:array[1..1000000] of longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to n do
if a[i]<0 then write(a[i],' '); writeln;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i]<>0) then s:=s+a[i];
write('Tong cac so nguyen chan la: ',s);
readln
end.


Các câu hỏi tương tự
Nhân lê
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Nguyễn Trần Thiên Bảo
Xem chi tiết
đức minh
Xem chi tiết
nguyễn vũ thành công
Xem chi tiết
Hưng Quốc
Xem chi tiết
Nguyễn minh Hoàng
Xem chi tiết
Hắc Phong
Xem chi tiết