Viết chương trình tính tổng của n số chẵn với n được nhập từ bàn phím

Question

Lời giải:

VAR n, i, s: INTEGER;
BEGIN
write('N='); readln(n);
s:=0;
FOR i:=2 TO n DO
IF i MOD 2 = 0 THEN s:=s+i;
write('T');
readln
END.

Answer 1

Trả lời:

Giải bởi Vietjack

Lời giải:

VAR n, i, s: INTEGER;
BEGIN
write('N='); readln(n);
s:=0;
FOR i:=2 TO n DO
IF i MOD 2 = 0 THEN s:=s+i;
write('T');
readln
END.