Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
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 😭😭😭

Nguyễn Lê Phước Thịnh
14 tháng 7 2020 lúc 12:53

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.


Các câu hỏi tương tự
Hùng Anh Nguyễn Đăng
Xem chi tiết
Uchiha Obito
Xem chi tiết
Huy Hoang Nguyen
Xem chi tiết
Nguyễn Kim Trí
Xem chi tiết
Uchiha Obito
Xem chi tiết
vy tường
Xem chi tiết
Nguyễn minh quân
Xem chi tiết
Nguyenthanh
Xem chi tiết
Huỳnh Trúc Ly
Xem chi tiết