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

0 bình luận về “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”

1. 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.

   Bình luận

2. Uki dễ 

   Bình luận