Thanh Trong Nguyen
Hỏi từ APP VIETJACK
Sử dụng ngôn ngữ lập trình pascal, viết các chương trình tính tổng B,với N được nhập từ bàn phím (bằng 2 cách)
Quảng cáo
1 câu trả lời 148
1 năm trước
Cách 1:program tinhtong;
uses crt;
var i,n: integer;
s: longint;
begin clrscr;
write('nhap n'); readln(n);
s:=0;
for i:=1 to n do if i mod 2 = 1 then s:=s+i;
write('tong la', s);
readln
end.
Cách 2:
program demo;
uses crt;
var i,n: integer;
s: longint;
begin clrscr;
write('nhap n'); readln(n);
s:=0; i:=1;
while i <= n do
begin
if i mod 2 = 1 then
i:=i+1;
s:=s+i;
end;
write('tong la', s);
readln
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK1 42624
-
Hỏi từ APP VIETJACK20770
-
Hỏi từ APP VIETJACK20738
Gửi báo cáo thành công!