Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
ttq

viết chương trình (pascal) nhập vào 1 số nguyên n

-xét số đó chẵn hay lẻ

-tìm các ước của nó in ra màn hình

-tính tổng các ước chẵn ( lệnh for..do )

không làm ý 1 cũng đc ( mình lm đc)

thanks

Trương Quang Dũng
19 tháng 1 2018 lúc 19:33

khỏi ý 1 nha

program bai1;

var n,s,i:longint;

begin

write('N= ');readln(n);

write('Uoc cua ',n,' la: ');

for i:=1 to n do

if (n mod i=0) then write(i,' ');

s:=0;

for i:=1 to n do

begin

if (n mod i=0) then

if (i mod 2=0) then s:=s+i;

writeln('Tong cac uoc chan la: ',s);

readln

end.


Các câu hỏi tương tự
Phan Thị Ka
Xem chi tiết
Hoà Trần
Xem chi tiết
Bảo Trâm
Xem chi tiết
Kỳ AnH
Xem chi tiết
Phùng Tú Văn
Xem chi tiết
Kisaragi Saya
Xem chi tiết
Thư Uyên
Xem chi tiết
Bảo Trâm
Xem chi tiết
Maiiii
Xem chi tiết