Ôn tập cuối năm

PT

Viết chương trình tính tổng sau: s=2+4+6+8+...+n

N2
9 tháng 3 2022 lúc 9:25

refer:

uses crt;

var s,i,n:integer;

begin

clrscr;

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

s:=0;

for i:=0 to n do

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

writeln('S=',s);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
PT
Xem chi tiết
TK
Xem chi tiết
MN
Xem chi tiết
TL
Xem chi tiết
HP
Xem chi tiết
DT
Xem chi tiết
HL
Xem chi tiết
PD
Xem chi tiết
QL
Xem chi tiết