sắp đến hạn nộp bt rồi huhu
\
Câu 2 : Viết chương trình tính và in ra tổng các số chẵn của 10 số nguyên đầu tiên? (N được nhập vào từ bàn phím)
Câu 3 : Viết chương trình tính và in ra tổng các số lẻ của 10 số nguyên đầu tiên? (N được nhập vào từ bàn phím)
Program BTT;
Uses crt;
Var i,chan,le: longint;
Begin
Clrscr;
chan:=0; le:=0;
For i:=1 to 10 do
If i mod 2 = 0 then chan:=chan+i
Else le:=le+i;
Writeln(‘Cau 2: ‘,chan);
Write(‘Cau 3: ‘,le);
Readln
End.
Câu 2:
uses crt;
var i,kq:longint;
begin
clrscr;
for i:=1 to 10 do
if i mod 2 = 0 then
kq:=kq+i;
write(‘Tong so chan tu 1 den 10: ‘,kq);
readln;
end.
Câu 3:
uses crt;
var i,kq:longint;
begin
clrscr;
for i:=1 to 10 do
if not i mod 2 = 0 then
kq:=kq+i;
write(‘Tong so le tu 1 den 10: ‘,kq);
readln;
end.