Bài tập vòng lặp 1

Bài Nhập vào 1 số nguyên dương. Tính tổng các chữ số và tìm số các chữ số.
Bài 2 Viết chương trình tìm ước chẵn của n.
Bài 3Viết chương trình tìm ước lẻ của n.
GIẢI:
Bài 1:
uses crt;
Var n,tong,d,m:integer;
Begin
Clrscr;
Tong:=0;
d:=0;
Repeat
write(' nhap n '); readln(n);
If n>=1000 then write('nhap lai');
until n<1000;
m:=n;
while n>0 do
Begin
d:=d+1;
Tong:=tong+(n mod 10);
n:=n div 10;
End;
writeln(' Tong cac chu so cua ',m,' la ',tong);
writeln('So ',m,' co ',d,' chu so do ');
Readln;
End.
Bài 2:
uses crt;
var n,i:integer;
begin
clrscr;
     write('Nhap n:');readln(n);
     write('Cac uoc chan cua ',n,' la:');
     for i:=1 to n do if (n mod i=0) and (i mod 2=0) then write(i:3);
readln;
end.
Bài 3:
uses crt;
var n,i:integer;
begin
clrscr;
     write('Nhap n:');readln(n);
     write('Cac uoc le cua ',n,' la:');
     for i:=1 to n do if (n mod i=0) and (i mod 2=1) then write(i:3);
readln;
end.
Nguồn Diễn Đàn tin học Văn Lang-Vạn Ninh