Question

nhập n là số nguyên từ bàn phím và thực hiện + nếu n là số Chẵn thì S=2+4+6+.....+n + nếun là số lẻ thì S=1+3+5+...+n

giup minh vs mn

Answer 1

program tongchan;

uses crt;

var i,s,n:integer;

begin

clrscr;

s:=0; write('nhap n:');readln(n);

for i:=1 to n do if i mod 2=0 then s:=s+i;

writeln('tong s la:',s);

readln

end.

Answer 2

Answer 3

program tong_le;

uses crt;

var s,n,i:integer;

begin

clrscr;

s:=0;

write('nhap n:');readln(n);

for i:=1 to n do

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

writeln('tong s la:',s);

readln

end.

Answer 4

Đề bài yêu cầu chia 2 trường hợp n chẵn lẻ nên mình sẽ làm chỉ trong 1 chương trình nhé:

uses crt;

var n,i,s:integer;

begin

clrscr;

readln(n);

if n mod 2=0 then

begin

s:=0;

for i:=1 to n do

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

writeln(s);

end

else begin

s:=0;

for i:=1 to n do 

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

writeln(s);

end;

readln;

end.