viết chương trình nhập vào 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 for…do)
viết chương trình nhập vào 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
By Maya
uses crt;
var n,t,i: longint;
Begin
clrscr;
write(‘Nhap so n: ‘);
readln(n);
for i:=3 to n do if ((i mod 2 = 1) and (i mod 3 = 0)) then t:=t+i;
write(‘Ket qua: ‘,t);
readln
end.
program vipem;
var n,y,i: longint;
Begin
write(‘Nhap so n: ‘);
readln(n);
for i:=3 to n do if ((i mod 2 = 1) and (i mod 3 = 0)) then y:=y+i;
write(‘Ket qua: ‘,y);
readln;
end.
xin hay nhất