Viết chương trình nhập vào một số N nguyên dương(N>0).Tính tổng các số chẵn và đếm các số lẻ chia chết cho 3 có trong tập hợp N đầu tiên?

0 bình luận về “Viết chương trình nhập vào một số N nguyên dương(N>0).Tính tổng các số chẵn và đếm các số lẻ chia chết cho 3 có trong tập hợp N đầu tiên?”

1. program az;

   uses Crt;

   var i,n,S,dem : longint;

   begin

   clrscr;

   dem := 0;

   S := 0;

   Write(‘Nhap n = ‘); readln(n);

   For i:=1 to n do

   begin

   If (i mod 2 = 0) then S:=S + i;

   If (i mod 2 <> 0) and (i mod 3 = 0) then dem := dem + 1;

   end;

   Writeln(‘Tong cac so chan la : ‘,S);

   Writeln(‘Co ‘, dem ,’ so le chia het cho 3 ‘);

   readln

   end.

   Bình luận