program chanle;
var
tl,tc,i,n,x:integer;
begin
write(' nhap n so nguyen: ');
readln(n);
for i:= 1 to n do
begin
read(x);
if x mod 2 = 0 then
tc:=tc+x;
if x mod 2 <> 0 then
tl:=tl+x;
end;
writeln(' tong cac so chan la: ',tc);
write('tong cac so le la: ',tl);
readln;
end.
Viết chương trình nhập vào từ một bàn phím một số nguyên dươngbin ra kết quả số vừa nhập là số chẵn hay lẻ
giải câu này cho mk vs\(Nhập từ bàn phím số nguyên dương N gồm 4 chữ số. Nếu N là số chẵn thì đếm chữ số 0 có trong số N còn nếu N là số lẻ thì tính tổng bình phương của các chữ số trong số N.\)
Viết chương trình nhập 5 số nguyên từ bàn phím. In ra tổng (hoặc hiệu, hoặc tích) các
số chẵn (hoặc lẻ) vừa nhập.
Bài tập 1: Viết chứng trình tính tổng 3 số nguyên được nhập từ bàn phím
Bài tập 2: Viết chương trình nhập vào một số và in ra màn hình kết quả số chẵn hay số lẻ
Bài tập 3: Mô tả thuật toán tính tổng của 100 số tự nhiên đầu tiên
Viết chương trình bằng ngôn ngữ lập trình Pascal để nhập một số tự nhiên từ bàn phím và thông
báo ra màn hình kết quả số đã nhập là chẵn hay lẻ?
Em hãy viết chương trình tính tổng các số chẵn từ 1 đến N trong đó N là số được nhập từ bàn phím (N<=100)
Em hãy viết chương trình tính tổng các số lẻ từ 1 đến N trong đó N là số được nhập từ bàn phím (N<=100)
