Question

b1: viết chương trình nhập vào 3 số nguyên a,b,c. In ra màn hình số lớn nhất

b2:cho 3 số bất kì. kiểm tra xem 3 số đó có là 3 cạnh của tam giác

Answer 1

(----------------------------------1-----------------------------------------------)

program ho_tro;

uses crt;

var a,b,c,max: real;

begin

clrscr;

writeln(' nhap 3 so:'); readln(a,b,c);

max:=a;

max:=b;

max:=c;

if max<a then max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln(' so lon nhat trong 3 so la:',max);

readln;

end.

(-------------------------------------------------2----------------------------)

program ho_tro;

uses crt;

var a,b,c: integer;

begin

clrscr;

writeln(' nhap 3 so :'); readln(a,b,c);

if (a+b)>c or (a+c)>b or (b+c)>a then writeln(' la 3 canh cua tam giac:')

else writeln(' k phai 3 canh cua tam giac:');

readln;

end.

Answer 2

bài 1:

uses crt;

var a,b,c,ln:integer;

begin

clrscr;

write('nhap a='); readln(a);

write('nhap b='); readln(b);

write('nhap c='); readln(c);

ln:=a;

if ln<b then ln:=b;

if ln<c then ln:=c;

writeln('so lon nhat la: ',ln);

readln;

end.

bài 2:

uses crt;

var a,b,c:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

if (a>0) and (b>0) and (c>0) then

begin

if (a+b>c) and (a+c>b) and (b+c>a) then writeln('day la 3 canh trong mot tam giac')

else writeln('day khong la 3 canh trong mot tam giac');

end

else writeln('vui long nhap cac so lon hon 0');

readln;

end.

Answer 3

b1:

program tim _so_lon_nhat;
uses crt;
var a, b, c: integer;
Begin
write ("Nhap so nguyen a = "); readln(a);
write ("Nhap so nguyen b = "); readln(b);
write ("Nhap so nguyen c = "); readln(c);
max:=a;
if max < b then max:=b;
if max < c then max:=c;
writeln ("So lon nhat trong 3 so la :",max);

readln

end.

b2:

program tg;

uses crt;

var a,b,c :real;
begin
write('Nhap vao a,b,c ');readln(a,b,c);
if (a<=0)or(b<=0)or(c<=0) then write('Khong phai la 3 canh cua tam giac')
else if (a>b+c) or (b>a+c)or (c>a+b) then write('Khong phai la 3 canh cua tam giac')
else write('a,b,c la 3 canh cua mot tam giac ');

readln

end.