Question

Viết phương trình tính tổng các số lẻ từ 1 đến N với N là một số bất kì (N\(\ge\)0) được nhập vào từ bàn phím.

Answer 1

again...

program bai1;

var n,i,s:longint;

begin

repeat

write('N= ');

readln(n)'

until n>0;

for i:=1 to n do

if i mod2=1 then s:=s+i;

write('...');

readln

end.

Answer 2

uses crt;

var S: integer;

Begin

Clrscr;

Write('Nhap n: ');readln(n);

S:=1;

while S<= n do S:=S+2;

writeln('S = ', S-2);

End.

Answer 3

Program tong_so_le;
Uses crt;
Var
S,N,I:Integer;
Begin
Clrscr;
Write('Nhap N ');Readln(N);
S:=0;
For I:=1 to N do
If (I mod 2<>0) then
S:=S+I;
Writeln('Tong cac so le la ',S);
Readln;
End.

Answer 4

program bai1;

var n,i,s:longint;

begin

repeat

write('N= ');

readln(n)'

until n>0;

for i:=1 to n do

if i mod2=0 then s:=s+i;

write9'...');

readln

end.