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 câu trả lời
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.
