Question

[Hạ Trúc Quỳ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ố 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 😭😭😭

Answer 1

[Nguyễn Lê Phước Thịnh]

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.