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