Bài 8. Lặp với số lần chưa biết trước

Trần Thị Mai Ngọc

Viết chương trình sử dụng lệnh lặp While ... do ... để thực hiện công việc sau

- Nhập vào số nguyên n (10<n<100)

-In ra màn hình tất cả các ước của n 

-Tính tổng và thông báo các ước của n là số chẵn

nguyễn an phát
18 tháng 4 2021 lúc 20:48

program tim_uoc;

uses crt;

var i,n,tong:integer;

begin

clrscr;

write('nhap so n:');readln(n);

i:=1;tong:=0;

writeln('cac uoc cua ',n,' la:');

while i<=n do

if n mod i=0 then

begin

write(i:3);

inc(i);

end;

writeln;

i:=1;writeln('cac uoc chan:');

while i<=n do

begin

if n mod i=0 then 

begin

if i mod 2=0 then write(i:3);

tong:=tong+i;

end;

end;

writeln;

write('tong cac uoc chan:',tong);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
19 tháng 4 2021 lúc 19:17

uses crt;

var n,i,t:integer;

begin

clrscr;

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

i:=1;

writeln('Cac uoc cua ',n,' la: ');

while i<=n do

  begin

if n mod i=0 then write(i:4):

i:=i+1;

end;

writeln;

writeln('Cac uoc chan cua ',n,' la: ');

t:=0;

i:=1;

while i<=n do 

  begin

if (n mod i=0) then

begin

t:=t+i;

write(i:4);

end;

inc(i);

end;

writeln('Tong cac uoc chan cua ',n,' la: ',t);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Lê Nguyễn Thanh Quân
Xem chi tiết
Anh Thư
Xem chi tiết
Lê Tâm Anh
Xem chi tiết
Lê Hồng Thái Dương
Xem chi tiết
huỳnh duy cát
Xem chi tiết
Huỳnh Hoài Nguyên
Xem chi tiết
Chira Nguyên
Xem chi tiết
Trí Nguyễn
Xem chi tiết
Giap Nguyen Van
Xem chi tiết