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ổng khi s<50
2 câu trả lời
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.
