Question

Viết chương trình tính tổng các số chẵn từ 1->n

Viết chương trình tính tổng các số lẻ từ 1->n

Giúp em với ạ:))em cảm ơn!!

Answer 1

Viết chương trình tính tổng các số chẵn từ 1->n

Uses CRT;

Var i,n,s:integer;

Begin clrscr;

 

Write('Nhap so n= ');Readln(n);

S:=0;

For i:=1 to n do

If i mod 2 = 0 do S:=S+i;

Writeln;

Write('tong cac so chan la ',S);

Readln;

End.

Viết chương trình tính tổng các số lẻ từ 1->n

program bai1;

var s,i,n:longint;

begin write('N= ');

readln(n); s:=0;

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

write('s= ',s);

readln

end.

Chúc em học tốt