Question

viết chương trình nhập vào 3 số nguyên a b c. tính in ra màn hình

Answer 1

Tham khảo!

 

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