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

H24

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

TD
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.

Bình luận (0)

Các câu hỏi tương tự
PK
Xem chi tiết
HT
Xem chi tiết
BT
Xem chi tiết
KA
Xem chi tiết
PV
Xem chi tiết
KS
Xem chi tiết
TU
Xem chi tiết
BT
Xem chi tiết
H24
Xem chi tiết