1/ Viết chương trình tính diện tích chu vi hcn với các cạnh là các số nguyên dương nhập từ bàn phím. 2/ viết chương trình nhập 1 số nguyên dương có 3 chữ số . tính và đưa ra màn hình kết quả tổng 3 chữ số đó. ví dụ: nhập 246 đưa ra 2+ 4+6 =12 giúp mình vs ạ, mình sẽ vote 5 sao

Câu 1:

uses crt;
var a,b:longint;
begin
   clrscr;
   repeat
      write('Nhap chieu dai,rong (a>0,b>0,a>b): '); read(a,b);
      if (a<=0) or (b<=0) or (b>=a) then writeln('NHAP LAI!');
   until (a>0) and (b>0) and (a>b);
   writeln('Dien tich HCN: ',a*b);
   writeln('Chu vi HCN: ',2*(a+b));
   readln
end.

Câu 2:

uses crt;
var n,t:longint;s:string;
begin
   clrscr;
   repeat
      write('Nhap n co 3 chu so: '); readln(s);
      if length(s)<>3 then writeln('NHAP LAI!');
   until length(s)=3;
   val(s,n);
   while n<>0 do 
      begin
         t:=t+(n mod 10);
         n:=n div 10;
      end;
   writeln('Tong: ',t);
   readln
end.

Bài 1:

program oken;
uses crt;
var a,b: integer;
begin
    clrscr;
    write('Nhao chieu dai: '); readln(a);
    write('Nhap chieu rong: '); readln(b);
    writeln('Dien tich hinh chu nhat: ',a*b);
    writeln('Chu vi hinh chu nhat: ',(a+b)*2);
    readln;
end.

Bài 2

program oken;
uses crt;
var n,s: integer;
begin
    clrscr;
    write('Nhap so co 3 chu so: '); readln(n);
    while n<>0 do
        begin
            s:=s+n mod 10;
            n:= n div 10;
        end;
    writeln('Ket qua: ',s);
    readln;
end.