Ai giỏi tin giúp với ạ ^^ cam on Câu 1 S = 2+4+6+8-.+N Viết chương trình tính tổng khi s>50 Câu 2 S = 1+3+5+7-.+N Viết chương trình tính t

Program Cau1;

Uses Crt;

Var i, n, s: integer;

Begin

 Clrscr;

 Write(‘Nhap so nguyen N: ‘);

 Readln(n);

 If s > 50 then

  For i := 1 to n do s := s + (i * 2);

 Write(‘Tong cua day la: ‘, s);

 Readln;

End.

———————————————-

Program Cau2;

Uses Crt;

Var i, n, s: integer;

Begin

 Clrscr;

 Write(‘Nhap so nguyen N: ‘);

 Readln(n);

 If s < 50 then

  For i := 1 to n do

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

 Write(‘Tong cua day la: ‘, s);

 Readln;

End.