1/ Viết chương trình nhập vào số N bất kỳ nếu N<=0 thì yêu cầu nhập lại cho đến khi N>0 rồi tính và đưa ra 4 lần diện tích hình vuông có cạnh là N.
2/ viết CT nhập vào 2 số M và N ( là 2 số nguyên dương M
1/ Viết chương trình nhập vào số N bất kỳ nếu N<=0 thì yêu cầu nhập lại cho đến khi N>0 rồi tính và đưa ra 4 lần diện tích hình vuông có cạnh là N.
2/ viết CT nhập vào 2 số M và N ( là 2 số nguyên dương M
câu 1:
uses crt;
var i,n: longint;
begin
clrscr;
repeat
write(‘Nhap n: ‘); readln(n);
until n>0;
for i:=1 to 4 do
writeln(‘Dien tich la: ‘,n*n);
readln;
end.
câu 2:
uses crt;
var n,m,s:integer;
t:longint;
begin
clrscr;
s:=0;
t:=1;
write(‘Nhap m: ‘); readln(m);
write(‘Nhap n: ‘); readln(n);
for i:=m to n do
if i mod 2=1 then
begin
s:=s+i;
t:=t*i;
end;
writeln(‘tong cua m va n la: ‘,s);
write(‘Tich cua m va n la: ‘,t);
readln;
end.
program bai1;
uses crt;
var i,n:integer;
begin
clrscr;
repeat
write(‘Nhap n:’);
readln(n);
until n>0;
for i:=1 to 4 do
writeln(‘Dien tich la: ‘,n*n);
readln
end.
program bai2;
uses crt;
var n,m,s:integer;
t:int64;
begin
clrscr;
write(‘Nhap m: ‘); readln(m);
write(‘Nhap n: ‘); readln(n);
s:=0; t:=1;
for i:=m to n do
if i mod 2=1 then
begin
s:=s+i;
t:=t*i;
end;
writeln(‘tong la: ‘,s);
write(‘Tich la: ‘,t);
readln
end.