Bài 7. Câu lênh lặp

Toàn Lê

viết chương trình tính tích các số lẻ của 1 dãy số tự nhiên N(N được nhập từ bàn phím)

Greatness Man ( Trần Hùn...
20 tháng 1 2020 lúc 20:16

program tinh_tich_so_le;

var s,i,n:longint;

begin

write('N= ');

readln(n);

s:=0;

for i:=1 to n do

if i mod 2<>0 then s:=s+i;

write('s= ',s);

readln

end.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
20 tháng 1 2020 lúc 20:48

uses crt;

var i,n:integer;

s:int64;

begin

clrscr;

write('nhap n='); readln(n);

s:=1;

for i:=1 to n do

if i mod 2=1 then s:=s*i;

writeln('tich cac so le trong khoang tu 1 toi ',n,' la: ',s);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Huy Hoàng Sơn
10 tháng 2 2020 lúc 21:58

uses crt;

var i,n:integer;

s:int64;

begin

clrscr;

write('nhap n='); readln(n);

s:=1;

for i:=1 to n do

if i mod 2=1 then s:=s*i;

writeln('tich cac so le trong khoang tu 1 toi ',n,' la: ',s);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Lâm Khả Doanh
Xem chi tiết
Trương Đại Phong
Xem chi tiết
Trịnh Nam
Xem chi tiết
Nguyến Ngọc Nguyên
Xem chi tiết
DinoDrang
Xem chi tiết
Nguyenthanh
Xem chi tiết
Hương Mai
Xem chi tiết
X No mame
Xem chi tiết
Phan Thị Ka
Xem chi tiết
Maiiii
Xem chi tiết