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<N ) tính và đưa ra tổng và tích của các số lẻ từ M đến N. Mình sẽ vote 5 sao ạ.

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.

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.