Question

Viết chương trình in ra màn hình tổng của n số lẻ đầu tiên với n nhập từ bàn phím

Answer 1

Uses crt;

Var i,t,n:integer;

Begin

Clrscr;

Write('n='); readln(n);

T:=0;

For i:=1 to 2*n do

If i mod 2=1 then t:=t+i;

Writeln(t);

Readln;

End.

Answer 2

Giải giúp mk với mai mk thể rồi mk cảm ơn nhiều

Answer 3

Uses crt;

Var i,t,n:integer;

Begin

Clrscr;

Write('n='); readln(n);

T:=0;

For i:=1 to 2*n do

If i mod 2=1 then t:=t+i;

Writeln(t);

Readln;

End.