câu 1 viết chương trình in ra màn hình diện tích và chu vi hình vuông s : =a*a; p:=4*a; câu 2 viết chương trình tính tổng , tích và hiệu của hai số

câu 1

uses crt;

var a,s,p:real;

begin

clrscr;

write(‘Nhap canh hv: ‘);readln(a);

s:=a*a;

p:=4*a;

writeln(‘Dien tich: ‘,s);

writeln(‘Chu vi: ‘,p);

readln;

end.

câu 2

uses crt;

a,b:integer;

begin

clrscr;

write(‘Nhap a: ‘);readln(a);

write(‘Nhap b: ‘);readln(b);

writeln(‘Tong: ‘,a+b);

writeln(‘Tich: ‘,a*b);

writeln(‘Hieu: ‘,a-b);

readln

end.

câu 3

uses crt;

var a,b,c:integer;

begin

clrscr;

write(‘Nhap canh a: ‘);readln(a);

write(‘Nhap canh b: ‘);readln(b);

write(‘Nhap canh c: ‘);readln(c);

if (a+b>c) and (b+c>a) and(a+c>b) 

then writeln(‘Day la ba canh tam giac’) else writeln(‘Day khong phai ba canh tam giac’);

readln

end.

Trả lời