-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à số chẵn 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, tính tổng các giá trị là 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, để tính tổng các giá trị chia hết cho 3 trong phạm vi từ 1 đến N, sau đó...
Đọc tiếp
-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à số chẵn 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, tính tổng các giá trị là 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, để 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.
Giúp mk với. Cần gấp 😭😭😭
uses crt;
var n,i,t1,t2,t3:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
t1:=0;
t2:=0;
t3:=0;
for i:=1 to n do
begin
if i mod 2=0 then t1:=t1+i;
if i mod 2=1 then t2:=t2+i;
if i mod 3=0 then t3:=t3+i;
end;
writeln('Tong cac so chan la: ',t1);
writeln('Tong cac so le la: ',t2);
writeln('Tong cac so chia het cho 3 la: ',t3);
readln;
end.