program songuyenduong;
var
n, i : integer;
sum : integer;
begin
writeln('Nhap vao so nguyen duong N: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if i mod 5 = 0 then
sum := sum + i;
end;
writeln(sum);
end.
Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện để tính tổng các giá trị chia hết cho 3 trong phạm vi từ 1 đến N,sau đó in ra màn hình
Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện để tính tổng các giá trị chia hết cho 5 trong phạm vi từ 1 dến N, sau đó in ra màn hình.
Bài 6: Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện và câu lệnh lặp for to do để tính tổng các giá trị chia hết cho 2 và chia hết cho 3 trong phạm vi từ 1 dến N, sau đó in kết quả ra màn hình.
Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện để tính tổng các giá trị chia hết cho 3 trong phạm vi từ 1 dến N, sau đó in ra màn hình.
Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện để tính tổng các giá trị là số chẵn trong phạm vi từ 1 dến N, sau đó in ra màn hình.
Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện để tính tổng các giá trị là số lẻ trong phạm vi từ 1 dến N, sau đó in ra màn hình.
Viết chương trình nhập từ bàn phím số nguyên dương N,tính tổng các giá trị lẻ và chia hết cho 3 trong phạm vi từ 1 đến N.In kết quả ra màn hình (sử dụng cú pháp while...do)
viết chương trình nhập vào bàn phím số nguyên dưng N,sử dụng câu lệnh điều kiện để tính số lẻ trong phạm vi từ 1 đến N, sau đó in ra màn hình
Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện để tính tổng các giá trị lag số lẻ trong phạm vi từ 1 đến N, sau đó in ra màn hình
